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ABSTRACT 


The  Branch  Directorates  o-f  the  Hellenic  Army  General  Sta-f-f 
(HAGS)  currently  per -form  the  annual  reassignment  o-f  their- 
o-f-ficers  manually.  The  author  proposes  an  automated  system 
to  perform  this  -function,  as  well  as  other  -functions 
concerning  personnel  management,  using  dBASE  III  with  a  micro- 
computer which  is  -fully  software-compatible  with  the  IBM/PC  or 
IBM  PC/XT.  Source  programs  and  sample  reports  Are    included. 
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I.  INTRODUCTION 


A.   PREFACE 

Look  around  and  you  will  see  evidence  that  computers  have 
become  part  o-f  our  daily  lives.  Today,  computers  a.r<B  common 
place  in  industry,  government,  science,  politics,  and  even 
in  our  homes.  As  more  and  more  organizations  use  computers  for 
their  needs,  it  is  necessary  to  use  modern,  systematic,  and 
cost  effective  approaches  for  software  solutions  to  their 
problems.  In  recent  years  these  software  solutions  have  clear- 
ly been  motivated  by  the  database  systems  approach,  which  is 
widely  used  in  most  organizations. 

Database  technology  today,  plays  a  central  role  in  the 
computer  world  for  the  facilities  and  data  handling  capabi- 
lities they  provide. 

During  the  last  decade  the  cost  of  labor  has  been  increa- 
sing steadily  with  direct  consequence  being  the  parallel 
increase  of  the  software  costs.  Meanwhile  the  cost  of  computer- 
hardware  has  decreased  dramatically.  As  David  Kroenke  puts  it, 
'The  computer  industry  has  developed  the  equivalent  of  a  $2.50 
Rolls  Royce  that  gets  2,000,000  miles  per  gallon  CRef.  1: 
p.  11. 

Thus,  simply  stated,  software  has  become  more  expensive  as 
computer  hardware  has  become  cheaper.  In  1960,  the  ratio  of 
hardware  over  software  expenditures  was  approximately  80 
percent  hardware  cost  to  20  percent  software  cost.  By  1980, 
the  ratio  was  reversed.  By  1990,  software  costs  will  account 
for  more  than  90  percent  of  the  amount  spent  on  computing 
systems  CRef.  2:  p.  31. 

The  above  considerations  lead  us  to  select  systems  that 
achieve   the   best   utilization   of   the   software,   and   thus 
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motivated  system  designers  to  build  advanced  database   systems 
in  order-  to  decrease  software  cost  and  obtain  maximum  benefit. 


B.   COMPUTERS  IN  THE  HELLENIC  ARMY 

The  leadership  o-f  the  Hellenic  Army,  realising  the  use- 
fulness of  computers,  introduced  them  into  the  Army  in  the 
1970 's.  Today,  most  of  the  tedious  and  error  prone  bureau- 
cratic manual  procedures  Are  automated,  and  the  computer  is 
used  efficiently  in  data  processing  and  decision  making.  Of 
course  there  Are  a  lot  of  procedures,  especially  in  the  area 
of  personnel  management,  which  have  not  been  automated  yet. 
One  of  these  procedures  which  is  still  performed  manually  is 
the  annual  reassignment  processing  of  officers  in  each  Branch 
of  the  Hellenic  Army  General  Staff  (HAGS).  The  automation  of 
this  job  constitutes  the  topic  of  this  research. 


C.   DATABASE  SYSTEMS  VS  MANUAL  SYSTEMS 

The  top  management  in  every  organization,  and  in  our  case 
the  Branch  Directors  of  the  HAGS,  need  accurate  and  timely 
information  in  order  to  make  fast  and  better  informed 
decisions. 

Currently,  all  information  required  by  the  Director  for 
scheduling  and  processing  annual  assignments  of  his  officers 
is  handled  manually  by  the  staff  of  the  Directorate.  This 
results  in  tedious  and  time— consuming  operations,  which  Are 
sometimes  inaccurate. 

Because  of  the  complicated  character  of  this  job,  and  the 
continuous  changes  pertaining  to  personnel  and  the  associated 
data,   it  is  extremely   difficult   for  the  staff  personnel   to 
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process  this  job.  Further,  the  Branch  Director  -Frequently  does 
not  have  the  necessary  information  to  make  rapid  decisions. 

The  above  problem   could   be  overcome   by  developing   and 
implementing  an  automated  personnel  database  system. 

The  development  and  implementation  of  a  personnel  database 
processing  system  would  provide  the  following  advantages  over 
the  existing  manual  system: 

1.  Improved  productivity,  i.e.  fewer  people  can  do  the  same 
job.  This  is  very  important  since  we  can  reduce  the 
staff  personnel  involved  in  the  manual  system,  and  use 
them  for  other  productive  tasks. 

2.  Speed,  which  is  very  important  for  a  deci si  on— or i ented 
processing  environment. 

3.  Reduced  tedium.  Large  volume  repetitious  jobs  can  be 
processed  easily. 

4.  Improved  quality  of  decisions.  Up-to-date  data/ 
information  can  be  made  available  to  decision  makers. 


D.   GENERAL  OVERVIEW  OF  A  DATABASE  PROCESSING  SYSTEM 

In  this  section  some  definitions  and  basic  database 
terminology  are  provided,  followed  by  a  summary  of  database 
architecture  and  types  of  data  models.  A  detailed  discussion 
of  the  data  models  is  beyond  the  scope  of  this  thesis,  but  a 
brief  overview  is  important  as  an  introduction  to  dBASE  III. 


1 .   Def i n i t i on  and  Basic  Terminology 


Database 


A  shared  collection  of  interrelated  data   designed 
,to  meet  the  varied  information  needs  of  an  organization. 
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b.  Database  Management  System  (DBMS) 

A  software  system  that  carries  out  all  user 
requests  -for  data.  User  requests  may  be  an  update,  a  delete  or 
a  retrieval  operation/function. 

c.  Database  System 

A  system  to  record  and  maintain  information  that 
is  significant  to  organisation  in  the  decision  making  process. 
It  is  also  called  Information  System. 

d.  Data  Definition  Language  (DDL) 

A  specialized  language  used  for  the  description  of 
the  database  (records  and  data-items).  This  description  is 
stored  in  the  Data  Dictionary  maintained  by  the  DBMS. 

e.  Data  Manipulation  Language  (DML) 

A  programming  language  used  to  formulate  queries 
or  to  write  application  programs  for  data  manipulation.  It  is 
also  called  Host  Language  or  Query  Language. 

f.  File  (or  Entity  Set) 

An  organized  collection  of  records  representing 
entities  of  the  same  type. 

g.  Record 

A  unit  of  data  representing  a  particular  entity  of 
a  file.  It  consists  of  a  number  of  interrelated  data  elements. 
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h.   Field 

A  subdivision  of  a  record  containing  a  unit  o-f 
information.  It  is  the  smallest  unit  o-f  named  data. 

i.   Key 

An  attribute  (-field)  or  a  set  o-f  attributes  whose 
value  uniquely  identi-fy  each  entity  in  a  file. 

j.   Relationships 

A  relationship  among  entity  sets  (-files)  is  simply 
an  ordered  list  o-f  entity  sets.  Relationships  Are  classified 
into  the  following  three  categories  according  to  how  many 
entities  from  one  entity  set  can  be  associated  with  how  many 
entities  of  another  entity  set  CRef.  3:  p.  143: 

(1)  One— to— one  Relationship.  For  an  entity  A  in  either  set 
there  is  exaxtly  one  associated  entity  B  of  the  other 
set.  Eg.  Suppose  that  in  a  database  we  have  the  entity 
sets  DEPARTMENT  and  HEADJDF_DEPARTMENT.  The  two  sets 
form  a  one— to— one  relationship  since  each  department 
has  only  one  head  and  each  head  can  belong  only  to  one 
department.  CRef.  3:  p.  153 

(2)  One— to— many  Relationship.  For  an  entity  A  in  either  set 
there  Are  (possibly)  many  associated  entities  of  the 
other  set.  For  example  the  entity  sets  ORDER  and 
CUSTOMER  form  a  one-to— many  relationship  since  each 
order  is  related  with  a  specific  customer,  while  a 
customer  may  be  related  with  more  than  one  orders. 

(3)  Many— to— many  Rel at i onshi p .  There  are  no  restrictions  on 
the  sets  of  pairs  of  entities  that  may  appear  in  a 
relationship  set.  For  example  the  entity  sets  PRODUCT 
and  RAW_MATERI AL  form  a  many— to-many  relationship  since 
a  product  may  be  built  from  more  than  one  raw  material 
and  a  raw  material  may  be  used  to  build  more  than  one 
type  of  product. 
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2.  Architecture  of  a  Database  System 

It  is  obvious  that  between  the  computer,  dealing  with 
bits,  and  the  end  user-  sitting  in  -front  o-f  a  terminal  managing 
information,  there  can  be  many  levels  o-f  abstraction.  The 
database  architecture  is  divided  into  three  di-f-ferent  levels 
o-f  abstraction:  internal,  conceptual,  and  external.  In  Figure 
1  we  can  see  the  standard  view— points  regarding  the  three 
levels  o-f  a  single  database,  which  may  be  one  o-f  many  data- 
bases using  the  same  DBMS  software.  CRe-f.  3:  p.  63 

The  internal  view  is  the  physical  database,  and  resi- 
des permanently  on  secondary  storage  devices,  such  as  disks 
and  tapes.  It  should  be  emphasized  that  only  the  physical 
database  exists.  We  may  view  the  physical  database  itsel-f  at 
several  levels  of  abstraction,  ranging  from  that  of  records 
and  files  in  a  programming  language  such  as  COBOL,  through  the 
level  of  logical  records,  as  supported  by  the  operating  system 
underlying  the  DBMS,  down  to  the  level  of  bits  and  physical 
addresses  on  storage  devices. 

The  conceptual  view  (or  schema)  is  an  abstraction  of 
the  complete  picture  of  an  organization.  A  DBMS  provides  the 
Data  Definition  Language  to  specify  the  conceptual  scheme. 

The  external  view  (or  subschema)  is  an  abstract  model 
of  a  portion  of  the  conceptual  view.  More  commonly  it  is  cal- 
led user  view. 

3.  Database  Systems  vs  Traditional  Fi le  Systems 

Database  technology  allows  an  organization's  data  to 
be  processed  as  an  integrated  whole.  It  reduces  the  need  of 
creating  and  maintaining  separate  files  for-  separate  applica- 
tions and  permits  users  to  access  data  more  natural  1 y. CRef .  1: 
p.  13 
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Fig.  1.  Levels  o-f  Abstraction  in  a  Database  System. 


To  appreciate  this  concept,  consider  the  systems  shown 
in  Figure  2.  These  ar&  three  traditional  -File  processing 
systems.  Each  file  is  considered  to  exist  independently,  and 
each  application  program  maintains  its  own  -files.  Also  there 
is  no  sharing  o-F  data  among  different  application  programs. 

Figure  3  shows  a  database  processing  system.  The  files 
from  the  previous  approach  have  been  integrated  into  a  data- 
base which  is  processed  indirectly  by  the  application  prog- 
rams. The  new  system  can  perform  all  the  old  functions,  but 
the  programs  call  upon  the  DBMS  to  access  the  database.  The 
DBMS  acts  as  a  data  librarian.  It  stores  and  retrieves  data. 
Besides  the  data  it  stores  in  the  database,  the  DBMS  also 
stores  a  description  of  the  format  of  the  data.  This  is  neces- 
sary in  order  for  the  DBMS  to  be  able  to  perform  its  function. 
CRef.  1:  p.  3D 
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Fig.  2.  File  Processing  Systems. 
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Fig.  3.  Database  Processing  System, 


The  database  processing  approach  is  more  beneficial 
than  the  traditional  -File  processing  approach  for  the  -Fol- 
lowing reasons: 
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a.  Integrates  data  into  a  single  database.  This  -Feature  is 
extremely  important  because  it  enables  more  information 
to  be  produced  -From  a  given  amount  o-F  data.  This  is 
because  DBMS  allows  processing  o-F  any  combination  o-F 
data  stored  in  the  database,  and  thus  we  can  obtain  more 
in-formation.  In  the  file  processing  system  the 
combinations  o-F  data  that  can  be  per-Formed  Are  limited, 
since  data  is  physically  partitioned,  and  hence  the 
amount  o-F  in -For  mat  i  on  obtained  is  limited.  CRe-F.  1:  p.  3D 

b.  Minimizes  data  redundancy.  Separate  and  redundant  data 
-Files  Ar&  integrated  into  a  single  logical  structure. 
This  means  that  a  data  item  is  recorded  once,  while  in 
the  -File  processing  system  the  same  in-formation  can  be 
repeated  in  different  files. 

c.  Provides  data  consistency.  Because  the  data  redudancy  is 
controlled,  tiiC?r-e  is  less  chance  of  inconsistencies. 
This  is  not  true  for  a  file  processing  system,  since  the 
data  redundancy  is  uncontrolled. 

d.  Allows  sharing  of  data.  Data  can  be  shared  by  many 
application  programs  via  DBMS.  In  the  file  processing 
approach,  since  every  application  has  its  own  private 
files,  there  is  little  opportunity  to  share  data  from 
other  application  programs'  files. 

e.  Allows  enforcement  of  standards.  Since  data  is  repeated 
only  once,  maintaining  a  standard  is  a  lot  easier. 

f.  Facilitates  the  development  of  new  applications.  There 
is  no  need  for  designing,  building,  and  maintaining  anew 
separate  files  for  new  applications,  while  in  the  file 
processing  approach,  usually  a  new  application  must  be 
build  from  scratch. 

g.  Provides  uniform  security,  privacy,  and  integrity 
controls.  Some  of  those  controls  a.r<3  provided  directly 
by  the  DBMS  (concurency  control  )  ,  and  others  a.r& 
specified  by  the  user  during  the  database  definition 
(integrity  rules)  and  the  program  development  (security 
constraints).  This  is  an  immediate  benefit  from  the 
sharing  and  integration  of  data. 

h.  Creation  of  program/data  independence.  DBMS  isolates  any 
changes  in  file  formats,  record  structure,  etc.  from 
application  programs.  Therfore  only  the  DBMS  and  those 
programs   that  use  the  changed  data  element   need   to  be 
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modified.  In  the  -file  processing  systems,  programs 
inter-Face  directly  with  -files  and  hence  the  structure 
o-f  -files  is  distributed  across  the  programs.  This 
distribution  creates  problems  when  a  file  is  changed. 
CRef.  1:  p.  43 

i.  Facilitates  data  accessibility  and  responsiveness.  DBMS 
provides  an  interactive  interface  to  database  by  query 
language. 

j.  Reduces  program  maintenance.  This  is  a  direct 
consequence  from  the  program/data  independence  feature. 
This  is  not  true  for  the  file  processing  approach  where 
any  change  in  a  datafile  will  necessitate  a  (possibly 
major)  change   in  programs. 


4.   Data  Models 

A  model  is  a  representation  of  real  world  objects, 
events,  and  their  associations  in  a  mathematical  form. 

A  data  model  i s  an  abstract  representation  of  the  data 
about  entities,  events,  activities,  and  their  associations. 
The  purpose  of  a  data  model  is  to  represent  data  in  an 
understandable  way.  The  three  most  important  data  models  in 
use  today  a.re  the  network,  hierarchical  and  relational.  These 
models  are      also   used   to  categorize  DBMS  products.  CRef.  3: 

p.  is: 

a.   Network  Data  Model  (NDM) 

A  network  data  model  represents  data  as  a  set  of 
record  types  and  pairwise  relationships  between  record  types 
(Figure  4).  Relationships  that  involve  more  than  two  record 
types  are    not  directly  permitted. 

The  basic  data  structure  used  in  a  network  data- 
base is  the  graph.  The  links  in  the  graph  are  bidirectional, 
allowing   us   to  travel  either-  from  many  to  one  or  from  one  to 
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many.  The  process  o-f  following  the  graph  links,  or  more 
generally,  relationships  is  called  navigation  CRe-f.  3:  p.  303. 
Navigation  allows  us  to  search  the  database  and  perform  the 
basic  operations  (retr-i  eve ,  i  nsert ,  modi-fy,  or  delete). 

The  DBMS  in  a  network  database  processing  system 
supports  the  use  o-f  multiple  one— to— many  or  many-to-one 
relationships  between  the  same  pair  o-f  record  types,  but  can- 
not support  directly  the  use  o+  many-to-many  relationships. 
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Fig.  4.  Network  Data  Model 


b.   Hierarchical  Data  Model  (HDM) 

In  the  Hierarchical  Data  Model  organizations  ^r^ 
viewed  as  a  hierarchy  o-f  positions.  A  hierarchical  database 
consists  o-f  one  or  more  trees  and  each  tree  consists  of  a 
hierarchy  of  records  (Figure  5).   Hierarchical  data  models  ^re 
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considered  as  a  special  case  of  the  network  data  model  since 
the  tree  structure  is  a  special  case  o-f  the  graph. 

The  basic  operation  on  a  hierarchical  database  is 
a  tree  walk,  that  is,  given  a  node  o-f  the  database  instance, 
we  can  scan  all  o-f  the  descendants  o-f  a  given  logical  record 
type.  This  allows  us  to  insert  new  records,  retrieve,  modify, 
or  delete  existing  records. 

The  above  operation  is  unidirectional,  that  is, 
the  links  in  the  tree  proceed  -from  parent  to  child  only 
CRe-f.  3:  p.  323.  For-  this  reason  HDM  is  considered  inefficient 
in  supporting  many— to— one  relationships. 
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Fig.  5.  Hierarchical  Data  Model. 


c.   Relational  Data  Model  (RDM) 

A  relational  data  model  differs  from  NDM  and  HDM 
in  architecture.  The  data  Are  represented  as  a  collection  of 
relations.  Intuitively,  a  relation  is  a  two  dimensional  table 
(Figure  6)   representing  a  file.   The  rows  of  the  relation  ^re 
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the  file  records.  Rows  sometimes  are  called  tuples  of  the 
rela  tion.  Each  column  contains  values  about  the  same  attri- 
bute (field),  and  has  a  distinct  name,  i.e.,  the  name  o-f  the 
attribute.  The  sequence  of  the  rows  is  immaterial  CRef.  1: 
p.  1963. 

The  set  of  attribute  names  for  a  relation  is  cal- 
led the  relation  scheme.  For  the  example  in  Fig.  6,  the 
relation  scheme  for  the  relation  PRODUCT  is  -CPRODUCTtt ,  NAME, 
PRICE3-.  The  collection  of  relation  schemes  used  to  represent 
information  is  called  a  (relational)  database  scheme,  and  the 
current  values  of  the  corresponding  relations  is  called  the 
(relational)  database.  CRef.  3:  p.  213 

The  principal  advantage  of  an  RDM  is  data  flexibi- 
lity. Relationships  need  not  be  predefined.  We  can  join 
PRODUCT  tuples   with  ORDER  tuples  (Fig.  6),   without  having  to 


ORDER  relation 


PRODUCT  relation 


ORD# 

DATE 

PR0D#_ 

QUANT 

0870 

01/16/86 

0 1 00 
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01/21/86 

0 1 20 

8 
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01/25/86 

0215 

10 

1236 

02/12/86 

1025 

1142 

02/15/86 

1132 

3 

PR0D# 
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PRICE 

0 1 00 

CHAIR 

25 .  00 

0 1 1 0 

TABLE 

125. 00 

0 1 20 

BOOKCASE 

120.00 

0215 

DRESSER 

380 . 00 

1025 

SOFA 

289. 00 

T-l 

ARMCHAIR 

208. 00 

1  132 

BED 

105. 00 

1140 

COUCH 

430 . 00 

• 

• 

Fig.  6.  Relational  Data  Model 


predefine  the  relationships  in  the  design.  The  RDM  can  support 
the  use  of  all  types  of  relationships. 


The  second  advantage  is  that  the  way  o-F  arranging 
the  data  is  simple  and  more  understandable  to  humans  than  the 
way  o-f  arranging  data  in  the  NDM  and  HDM,  since  the  table 
structure  is  simpler  than  the  graph  and  tree  structures. 

Another  advantage  is  that  query  languages  provided 
-For  relational  database  processing  systems,  permit  data  to  be 
manipulated  as  groups  and  not  procedurally  as  one  record  at  a 
time. 

For  the  above  reasons,  relational  DBMS  have  become 
very  popular,  although  it  is  the  youngest  o-F  all  DBMSs  in 
the  computer  community. 


E.   dBASE  III  CONCEPTS 

Recently,  database  management  systems  built  -For  micro- 
computers have  become  very  papular.  They  provide  an 
inexpensive  and  easy  way  -For  developing  database  systems  -For 
applications  like  general  personnel,  accounting,  and  inventory 
control . 

dBASE  III  is  a  relational  database  management  system  -For 
microcomputers.  It  contains  its  own  programming  language, 
permitting  a  user  to  develop  extremely  powerful  and  complex 
application  programs.  dBASE  III  is  used  as  the  DBMS  in  the 
design  and  development  o-F  an  automated  o-Fficer  assignment 
database  system. 

1.   Features  o-f  dBASE  III 


a.  Program/data  independence.  Changes  in  -File  structure   do 
not  a-F-Fect  application  programs. 

b.  Data  can  be  easily  updated. 
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c.  Besides  the  known  data  types  (character,  numeric,  and 
logical),  it  provides  the  date  data  type  -for  managing 
dates,  and  memo  data  type  for  managing  long  passages 
o-f  text. 

d.  Saves  information  as  disk  files  in  9  specialized  formats 
each  serving  a  specific  dBASE  III  processing  need. 
CRef.  5:  p.  2-5] 

e.  Sorting  and  indexing  capabilities. 

f.  Creation  and  printing  of  formatted  reports. 

g.  Date  arithmetic. 

h.  Built— in  high  level  language, which  is  extremely  powerful 
and  supports  structured  programming. 

i.  Allows  interfacing  with  other  software  systems,  such  us 
SuperCalc,  Symphony,  WordStar  and  Basic.  CRef.  43 

2.   Limitations  of  dBASE  III 


a.  Each  database  file  can  have  up  to  1  billion  records 
maximum.  The  maximum  size  of  each  file  is  2  billion 
bytes. 

b.  Allows  a  maximum  of  128  fields  in  each  record  with  their 
combined  widths  up  to  a  maximum  of  4,000  characters. 

c.  Allows  you  to  have  up  to  10  database  files  open  at  the 
same  time,  or  15  files  of  all  types.  You  can  have  7  open 
index  files  and  1  format  file  per  active  database  file. 

d.  Filenames  can  be  up  to  8  characters  long  and  fieldnames 
can  be  up  to  10  characters  long. 

e.  The  maximum  number  of  active  memory  variables  is  256. 
The  total  number  of  bytes  for  memory  variables  is  6,000. 

f.  Execution  of  dBASE  III  programs  is  slower  than  compiled 
programs. 

All   the   above   values   may   be   limited   by   the 

computer  hardware  configuration.  CRef.  5:  p.  2—23 
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II.  ANALYSIS 


Analysis  is  the  study  of  a  problem  prior  to  taking  some 
action.  In  our  case,  analysis  refers  to  the  study  of  the 
existing  problem  in  order  to  derive  the  required  information 
which  will  enable  us  to  decide  whether  a  database  system 
approach  can  provide  an  efficient  and  economical  solution  to 
our  problem  or  if  it  will  become  part  of  the  problem. 


A.   PROBLEM  DEFINITION 

As  we  stated  earlier,  the  operations  required  for  sche- 
duling the  annual  assignments  of  the  officers  in  each  Branch 
of  the  Hellenic  Army  General  Staff  (HAGS)  are  performed 
manually  by  the  staff  of  each  Branch.  This  results  in  tedious 
time— consuming  operations  and  inefficiency.  In  addition,  the 
Branch  Director  may  not  be  able  to  make  fast  decisions 
concerning  personnel  management  due  to  the  lack  of  timely  and 
accurate  information.  Further,  the  volume  of  transactions  in 
every  big  organization  and  especially  in  the  army,  pertaining 
to  personnel  management,  is  getting  larger  and  larger,  which 
means  that  additional  personnel  is  required  to  perform  the 
above  job,  leaving  other  critical  positions  unmanned. 

For  a  solution  to  the  above  definition  of  the  problem  we 
ask  the  question  'can  a  database  system  provide  a  more  ef- 
ficient and  economical  solution?'.  In  order  to  answer  this 
question  we  must  be  aware  of  how  a  Branch  is  organized,  what 
is  being  done,  how  frequently  does  this  job  occur,  and  how 
great  is  the  volume  of  transactions. 
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1 .   Organization  Overview 

a.   Branch  Organization 

The  Hellenic  Army  General  Staf-F  is  organized  into 
three  major  parts:  Arms,  Services,  and  Staf-f.  The  relation 
o-f  these  parts  to  the  HAGS  organization  is  summarized  in 
Figure  7. 


SERVICES 


STAFF 


Fig.  7.  Organization  Chart  of  the  HAGS. 


Each  Arm  or  Service  (we  will  call  them  simply 
Branches),  is  responsible  -For  the  operational  readiness  and 
managerial  aspects  o-f  the  units  which  are    part  o-f  the  Branch. 

Each  Branch  is  organized  into  subordinate  Com- 
mands, Sta-f-fs,  and  Units.  The  number  of  units  varies  -from 
Branch  to  Branch,  depending  on  the  mission  and  special 
characteristics  o-f  each  Branch  o-f  the  Army. 

In  order  to  provide  a  concrete  example  of  a  branch 
organization  we  will  use  the  Artillery  Branch  as  the  model  -for 
this  research.  Figure  8  summarizes  the  relation  o-f  the  com- 
mands, staffs,  and  units  to  the  Artillery  Branch  organization. 
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Fig.  8.  Organization  Chart  of  the  Artillery  Branch. 


In  Table  I  we  provide  a  detailed  list  o-f  the 
Artillery  echelons.  There  ^r&  four  categories  at  units: 
Staffs,  Schools,  Training  Centers,  and  Combat  Units.  Also 
units  ar&  characterized  as  A— type,  B— type,  or  C-type  according 
to  their  operational  readiness.  The  operational  readiness 
determines  the  level  of  manning  for  each  unit.  The  names, 
number  of  units,  and  the  manning  level  provided  below  Ar& 
figurative  for  security  reasons. 


Table  I.  Artillery  Echelons 


UNIT 

UNIT 

UNIT 

UNIT 

NAME 

DESCRIPTION 

CATEGORY 

TYPE 

ABD/HAGS 

Artillery  Branch  Directorate 

Sta-f-f 

A 

AS 

Artillery  School 

School 

A 

ARTC 

Artil.  Recruit  Training  Center 

Trai  n . 

Center 

A 

GMB 

Guidance  Missile  Battalion 

Combat 

Unit 

A 

AC/1  AC 

1st  Army  Crop  Artil.  Command 

Sta-f-f 

A 

11  FA/AB 

Field  Anti-Air  Artil.  Battal . 

Combat 

Unit 

A 

12  HAB 

Heavy  Artillery  Battalion 

Combat 

Unit 

A 

13  OB 

Observation  Battery 

Combat 

Unit 

A 

AC/11  ID 

11th  In-f.  Div.  Artil.  Command 

Sta-f-f 

A 

111  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

A 

112  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

A 

113  MHAB 

Medium— Heavy  Artil.  Battalion 

Combat 

Unit 

A 

AC/12  ID 

12th  In-f.  Div.  Artil.  Command 

Ssta-f-f 

B 

121  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

B 

122  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

B 

123  MHAB 

Medium— Heavy  Artil.  Battalion 

Combat 

Unit 

B 

AC/2  AC 

2nd  Army  Crop  Artil.  Command 

Sta-f-f 

B 

21  FA/AB 

Field  Ant i -Air  Battalion 

Combat 

Unit 

C 

22  HAB 

Heavy  Artillery  Battalion 

Combat 

Unit 

c 

23  OB 

Observation  Battery 

Combat 

Unit 

C 

AC/21  ID 

21st  In-f.  Div.  Artil.  Command 

Sta-f-f 

B 

211  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

3 

212  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

B 

213  MHAB 

Medium— Heavy  Artil.  Battalion 

Combat 

Unit 

B 

AC/22  ID 

22nd  In-f.  Div.  Artil.  Command 

Sta-f-f 

C 

221  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

C 

222  FAB 

Field  Artillery  Battalion 

Combat 

Unit 

C 

223  MHAB 

Medium— Heavy  Artil.  Battalion 

Combat 

Unit 

C 

b.   O-f-ficers'  Organization 

O-f-ficers  come  -from  two  sources,  those  who  have 
graduated  -from  the  Military  Academy  (MA),  and  those  who  used 
to  be  warrant  o-f-ficers  and  have  been  promoted  to  o-f-ficers. 
They  have  graduated  -from  the   Non— Commissioned  Officers  School 


28 


(NCOS).  Further,  officers  are  distinguished  according  to  their 
specialty  as  commanding  o-f-ficers  (all  officers  coming  from  the 
Military  Academy  plus  a  small  number  coming  from  NCOS), 
technicians,  and  administrative  officers  (officers  coming  only 
from  NCOS) . 

Officers  Are  assigned  to  various  units  according 
to  an  organization  table  maintained  by  each  Branch.  Table  II 
illustrates  the  organization  table  of  the  Artillery  units. 

2.   Description  of  the  Present  Situation 

One  of  the  major  responsibilities  of  a  Branch  is  to 
schedule  and  monitor  the  assignments  of  the  officers  who 
belong  to  this  Branch.  Each  officer  during  his  CAreer  has  to 
be  assigned  to  various  units  and  staff  positions  in  order-  to 
be  equiped  with  the  necessary  skills  which  will  qualify  him 
for  further  professional  evolution.  For-  this  reason,  in  each 
Branch  of  the  HAGS  there  exist  a  mechanism  through  which  the 
Director  keeps  track  of  the  assignments  of  his  officers. 

All  officers  through  the  rank  of  captain  Are  exclu- 
sively assigned  to  units  which  Are  part  of  the  corresponding 
Branch.  However,  a  small  number  of  officers,  from  the  rank  of 
major  and  on,  are  unbound  by  the  Branch  and  disposed  to  the 
HAGS  to  man  other  staff  units  outside  the  Branch.  The  number 
of  officers  serving  outside  the   Branch   is  always  fixed. 

Each  Branch  schedules  and  monitors  the  assignments  of 
its  officers  up  to  the  rank  of  the  Colonel.  The  assignments 
of  the  Generals  Are  scheduled  by  the  HAGS  and  they  will  not  be 
discussed  here. 
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Table  II.  Organization  Table  of  the  Artillery  Units 


!Ti 

OFFICERS 

'  DISTRIBUTION 

UN I T   ! Y ! 06 

05 

03 

02 

SUM 

:p:ma 

MA 

MA 

NCOS 

MA 

NCOS 

MA 

NCOS 

MA 

NCOS 

name  : E : c 

c 

C 

C 

T 

A 

C 

C 

T 

A 

C 

C 

T 

A 

C 

C 

T 

A 

ABD/HAGS! AJ3 
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*-> 

1 

10 

AS        !A!2 

3 

*7I 

1 

1 

1 

6 

1 

6 

12 

'-y 

*-\ 

39 

ARTC      ! A  i  1 

4 

■^ 

1 

1 

1 

9 

12 

3 

3 

37 

6MB     : a : 

1 

1 

6 

1 

9 

3 

30 

AC/i  AC  :a:i 

3 

1 

6 

li  fa/ab:a: 

1 

3 

1 

1 

3 

1 

1 

12 

12  hab  :a: 

1 

3 

3 

1 

1 

1 

1  1 

13  OB    !A! 

1 

1 

3 

1 

1 

7 

AC/ii  id:a:i 

*n 

1 

5 

hi  fab  :a: 

l 

3 

1 

1 

•^ 

1 

1 

1 

12 

H2  fab  :a: 

l 

3 

1 

1 

*? 

1 

1 

1 

12 

H3  mhabia: 

l 

4 

1 

1 

3 

1 

1 

1 

14 

AC/12  IDIBJl 

^ 

1 

4 

121  FAB  IB! 

l 

*~\ 

*? 

1 

1 

1 

1 

10 

122  FAB  IB! 

i 

*-^ 

T* 

1 

1 

1 

1 

10 

123  mhab:b: 

l 

*n 

1 

1 

1 

'n 

1 

1 

11 

AC/2d  acib: 1 

^ 

1 

-J 

21  fa/ab:c: 

l 

*-\ 

l 

1 

1 

( 

22  hab   :c: 

l 

■^ 

1 

1 

1 

— 7 

23  ob   :c: 

l 

l 

1 

1 

4 

ac/21  id:b;i 

^ 

1 

4 

2ii  fab  ;b: 

l 

^ 

*^ 

1 

1 

1 

1 

10 

212  FAB  :b: 

l 

*-y 

O 

1 

1 

1 

1 

10 

213  mhab:b: 

l 

*^» 

1 

1 

1 

*~\ 

1 

1 

11 

ac/22  id:c:i 

l 

1 

3 

221  fab  ;c: 

1 

*-> 

l 

1 

1 

1 

8 

222  fab  :c: 

1 

*-> 

l 

1 

1 

1 

8 

223  mhab:c: 

l 

*-y 

1 

l 

1 

1 

1 

9 

TOTAL       !12 

31 

39 

4 
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Rank_Codes 
06=Col onel 
05=l_ieut.  Colonel 
04=Major 
03=Captain 
02=lst  Lieutenant 
01=2nd  Lieutenant 


Officer s" _0r  i  g  i  n      Of f  i  cers '    Speci  al ty 
MA   =Military  C=Commanding 

Academy  T=Technitian 

NC0S=Non— Commi ssi  oned   A=Admi  ni  strati  ve 

Officers  School 
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a.  Criteria  affecting  the  Assignments 

The  mechanism  of  scheduling  the  assignments  in  each 
Branch  of  the  HAGS  is  based  on  certain  criteria.  The  criteria 
vary  -from  Branch  to  Branch  depending  on  the  organization  and 
special  characteristics  o-f  each  Branch.  Among  those  criteria 
we  will  pick  up  the  common  ones  in  order  to  keep  this 
research  more  abstract,  so  that  it  can  be  easily  applied  to 
every  Branch  with  minor  modi f i cations. 

(1)  Origin.  O-f-ficers  coming  -from  NCOS  can  never  be  assigned 
to  sta-f-f  positions,  as  well  as  in  units  outside  the 
Branch. 

(2)  Specialty.  Table  II,  determines  the  number  of officers 
assigned  to  each  unit  according  to  their-  specialty. 

(3)  Schools.  The  only  school  that  can  directly  a-f-fect  the 
assignments  is  the  War  College.  An  o-f -f  icer  can  never 
be  assigned  to  a  sta-f-f  unit  i-f  he  has  not  graduated 
from  the  War  College.  Other  schools  that  do  not  a-f-fect 
the  assignments  are  not  discussed  here,  although  they 
may  be  very  important  -for-  other-  aspects  in  the  decision 
making  process. 

(4)  Rank.  From  the  Organization  Table  (Table  II)  we  can 
determine  the  number  o-f  o-f-ficers  per  rank  assigned  to 
various  units.  However,  there  Are  some  simple  rules 
governing  the  assignments  which  cannot  be  seen  in  the 
table  and  they  Are    stated  below. 

(a)  All  2nd  lieutenants,  right  after  their-  graduation 
from  the  Military  Academy,  Are  assigned  to  the 
corresponding  Branch-school  (Artillery  School  for 
our  model)  for  training  (specialization).  After- 
one  year  of  training,  all  Are  assigned  to  the 
Artillery  Recruit  Training  Center  (ARTC)  in  order 
to  obtain  the  necessary  training  experience.  They 
remain  one  year  in  the  ARTC  and  then  Are  assigned 
to  various  combat  units. 

(b)  All  officers  graduating  from  the  War  College  (only 
majors)  Are  assigned  to  staff  positions  (inside  or 
outside  the  Branch)  for  at  least  two  years. 
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(5)  Command  Ti  me.  Command  time  is  a  requirement  -for  all 
officers  up  to  the  rank  o-F  lieutenant  colonel  -for 
promotion  to  the  next  rank.  The  minimum  command  time 
required  for  a  lieutenant  colonel  is  one  year  o-f 
service  as  a  Battalion  commander.  There-fore,  each 
Branch  during  the  scheduling  o-f  the  assignments  must 
take  the  command  time  into  consideration,  and  assign 
the  lieutenant  colonels  who  have  not  completed  this 
requirement  as  Battalion  commanders.  Each  commander  is 
responsible  to  assign  appropriate  duties  to  all  his 
subordinate  o-f-ficers,  so  that  they  can  complete  the 
required  command  time  -for  their  rank. 

(6)  Time  o-f  Service  in  the  Same  Unit.  For  each  rank  there 
is  a  minimum  and  a  maximum  time  an  o-f-fi  cer  can  serve  in 
the  same  unit  as  described  below. 

(a)  Lieutenants  3—4  years. 

(b)  Captain  3—4  years. 

(c)  Major  1—3  years. 

(d)  Lieutenant  colonel  1-3  years 

(e)  Colonel  1—2  years 

(7)  Of f icers'  Requests.  After  an  officer  has  been  assigned 
to  a  unit  for  a  year  he  makes  a  request  for  his  next 
assignment.  This  request  is  submitted  only  once  during 
each  assignment  period,  except  in  the  case  when  serious 
reasons  dictate  the  change  of  the  request  and  a  need 
for  resubmission.  In  the  request  each  officer  states 
his  preferences  in  three  areas  that  he  would  like  to 
serve  in  during  his  next  assignment.  The  officers' 
requests  are  examined  by  the  Branch  during  the 
scheduling  of  the  assignments,  and  in  combination  with 
the  other  criteria.  If  there  is  no  conflict,  all 
conditions  can  be  satisfied. 

(8)  Mar i tal  Status.  This  criterion  is  examined  whenever  two 
or  more  officers  having  the  same  qualifications  request 
the  same  unit  for  their  next  assignment.  In  this  case 
married  officers  or  officers  having  bigger  families  ar& 
given  preference. 

(9)  Historical  Data.  Each  Branch  maintains  a  record  for 
each  officer,  containing  all  personal  and  service  data. 
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All  assignments  of  an  officer  Are  maintained  in  his 
record,  along  with  the  previously  mentioned  data.  This 
data  must  always  be  kept  up-to-date,  because  they 
reflect  the  real  picture  o-f  an  o-F-Fi  cer  and  provide 
scheduling  personnel  with  the  required  information  to 
accomplish  their  task. 


b.   Officer  Processing  Considerations 

Officers'  assignments  Are  closely  related  with  the 
promotions.  The  assignments  -follow  the  promotions,  which 
usually  occur  -four  times  a  year:  -for  the  colonels  (March),  -for 
the  lieutenant  colonels  (April),  -for  the  majors  (May),  and  for 
the  lieutenants/captains  (June).  After  the  announcement  of  the 
promotions  by  the  HAGS,  each  Branch  schedules  the  assignments 
for  the  corresponding  rank,  and  implements  them  by  issuing  the 
necessary  orders. 

The  personnel  involved  in  this  job  combines  all 
the  above  criteria  and  determines  who  of  the  officers  meet  the 
requirements  for  a  new  assignment  and  in  which  unit  he  must  be 
assigned.  Usually  one  fourth  of  the  officers  of  each  Branch 
Are  moved  every  year  during  the  assignments.  Besides  this 
duty,  the  above  personnel  are  responsible  to  provide  the 
Branch  Director  and  other  staff  offices  of  the  HAGS  all 
requested  information  concerning  the  officers  of  the  Branch. 

The  number  of  personnel  involved  in  this  job 
varies  from  Branch  to  Branch,  depending  on  the  volume  of  the 
officers  enrolled  in  each  Branch.  In  our  model  usually  three 
people  are  directly  involved,  one  lieutenant  colonel,  one 
lieutenant,  and  one  civilian. 


33 


B.   JUSTIFICATION  OF  A  COMPUTERIZED  SOLUTION 

From  the  above  discussion,  it  is  obvious  that  the  manual 
processing  o-F  the  o-f-ficers'  assignments  is  a  very  tedious,  in- 
efficient and  time— consuming  operation.  Three  people  are 
working  continuously  creating,  classi-fying  and  updating 
o-f-ficers'  records,  scheduling  the  assignments,  and  providing 
the  Branch  Director  and  HAGS  all  requested  information  (lists 
and  various  reports)  concerning  personnel  management.  Further, 
inaccuracies  and  delays  may  be  introduced  in  the  decision 
making  process  due  to  the  great  volume  o-f  required  data  and 
the  complex  character  o-f  the  job. 

All  o-f  the  above  mentioned  problems  could  be  overcome  by 
developing  and  implementing  an  automated  system. 

There  are  two  possible  computerized  approaches  which  can 
provide  a  solution  to  our  problem:  the  traditional  -file 
processing  approach,  and  a  database  system  approach.  Between 
the  two  approaches  the  later  is  more  e-f-ficient  than  the  -first 
one  -for  the  reasons  explained  previously.  Further,  the 
implementation  o-f  a  database  system  on  a  microcomputer  is  an 
economical  solution,  since  the  expenses  -for  buying  the  entire 
system  (hardware  and  DBMS)  are  very  low  (about  $4,000)  and 
they  can  be  o-f-fset  by  a  reduction  o-f  processing  personnel 
(-from  three  to  one).  It  is  apparent  that  this  system  would 
also  provide  a  better  quality  o-f  services. 

From  the  above  discussion  it  is  evident  that  a  database 
system  should  be  developed  and  implemented  on  a  microcomputer 
-for  an  e-f-ficient  and  economical  solution  to  the  o-f-ficers' 
assignments  scheduling  problem,  as  well  as,  -for  other  problems 
related  with  personnel  management  in  each  Branch  o-f  the  HAGS. 
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C.   SYSTEM  GOALS  AND  REQUIREMENTS 

In  order  to  establish  a  framework  -For  the  database  system 
development ,  it  is  necessary  to  speci-fy  what  we  expect  -from  the 
new  system,  and  what  capabilities  this  system  must  provide. 


Goals 


Goals  are  targets  -for  achievement.  The  -following 
targets  must  be  achieved  by  the  system  under  development: 

a.  It  should  reduce  the  personnel  involved  in  the  process 
o-f  officers'  assignments  scheduling  by  65  percent. 

b.  It  should  be  easy  to  use  by  nonprogrammers. 

c.  It  should  be  useful. 

d.  It  should  be  cost  effective. 

e.  It  should  make  users'  jobs  more  interesting. 

2.   Requirements 

Requirements  specify  capabilities  that  a  system 
must  provide  in  order  to  solve  the  problem.  Requirements 
include  functional  requirements,  performance  requirements,  and 
requirements  for  hardware,  software,  and  user  interfaces 
CRef.  2:  p.  333.  The  capabilities  the  new  system  must  provide 
are    the  following: 

a.  Reliability,  i.e.  it  must  be  able  to  preform  its 
intended  functions  under  stated  conditions  for  a  stated 
period  of  time. 

b.  Application  development  must  be  easy,  cost-effective, 
and  fast. 

c.  The  data  can  have  multiple  uses. 


d.  Per-f ormance.  It  must  be  -fully  operational  95  percent  o-f 
each  24— hour  period. 

e.  Response  time  to  user  requests  (queries)  no  more  than  5 
seconds. 

f.  The  size  o-f  primary  memory  able  to  support  the  system 
must  be  at  least  320K  bytes  (1BOK  bytes  for  bBASE  III 
system  program  plus  50K  bytes  -for  operating  system 
requirements  plus  90K  for  user  requirements).  CRef. 
5 :  p .  361 

g.  The  computer  system  must  be  equiped  with  a  20M  byte 
hard— disk  for  the  user  files  and  programs,  and  at  least 
one  floppy  disk  drive  for  the  system  program  and  far- 
back— up  purposes. 

h.  Maintainability,  i.e.  software  changes  must  be  easy  and 
cost— effect i  ve. 

i.   Security  and  privacy. 


D.   INPUT /OUTPUT  INFORMATION 

As  stated  earlier,  the  system  under  development  can  be 
applied  to  all  Branches  of  the  HAGS  with  minor  modifications, 
but  for  the  purpose  of  this  research  we  will  include  only  the 
Artillery  Branch. 

Although  in  this  phase  we  Are  not  able  to  specify  what  the 
exact  input  and  output  information  will  be,  we  have  gained 
some  insights  and  understanding  from  the  discussion  thus  far. 
These  thoughts  should  be  taken  as  hints  and  guidelines 
concerning  system  input  and  output  information  for  the  product 
design,  but  not  as  rigid  requirements. 

Detailed  description  of  the  required  input  and  output 
information  will  be  provided  in  the  design  phase. 
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1 .  Input  In-f  or  (nation 

Since  the  system  is  intended  to  deal  with  o-f-ficers, 
the  required  input  in-formation  should  be  o-f-ficers'  data. 
There-fore,  we  must  consider  the  -following: 

a.  Each  o-f-ficer  has  a  unique  serial  number,  rank,  origin, 
specialty,  nomination  date,  promotion  date  in  the 
current  rank,  and  a  home  city. 

b.  Each  o-f-ficer  serves  in  some  unit  since  a  certain  date 
(enrollment  date),  and  has  been  assigned  a  duty.  The 
unit  is  identified  by  a  unique  name,  has  a  readiness 
type,  and  is  located  in  some  geographical  area  o-f  the 
country  (city  and  county). 

c.  Each  o-f-ficer  has  a  marital  status  (single,  married, 
divorced,  windower,  number  and  age  o-f  children,  working 
wi-fe)  . 

d.  Each  o-f-ficer  has  some  education  (military/non-military 
studies) . 

e.  Each  o-f-ficer  submits  a  request  to  the  Branch  indicating 
three  areas  he  wants  to  be  assigned  in  his  next 
assignment  in  pre-ference  order. 

■f .  Each  o-f-ficer  has  some  historical  data  (previous  assign- 
ments, duties,  promotion  dates  etc.). 

2.  Output  In-f ormat ion 

To  meet  the  above  goals  and  requirements  the  -following 
output  in-f  ormat  ion  is  required: 

a.  List  o-f  the  scheduled  o-f-ficers'  assignments  by  rank 
including  serial  number,  name,  rank,  source  unit,  desti- 
nation unit,  and  date  the  assignment  must  take  place. 

b.  List  o-f  any  unit  including  the  o-f-ficers  assigned  to  it, 
their  duties,  and  enrollment  date. 

c.  List  o-f  all  Artillery  o-f-ficers  in   any  requested  order. 
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d.  List  o-f  o-ff icers  by  rank  re-flecting  their-  present  status 
(rank,  unit,  duties,  command  time,  marital  status,  and 
enrollment  date). 

e.  List  o-f  Battalion  commanders. 

-f .  List  o-f  all  Artillery  o-f-f  icers  serving  outside  the 
Branch. 

The  above  lists  will  be  -formatted  and  issued  at  any 
time  upon  request.  Besides  these  lists,  the  -following  reports 
will  be  available: 

a.  Service  time  report  for-  any  o-f-f icer  including  all  units 
he  has  been  assigned  to,  duties,  and  enrol  1 ment/dis- 
disenrol lment  dates,  in  chronological  order. 

b.  O-f-f  icer 's  status  report  re-flecting  his  status. 
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III.  DESIGN 


The  design  is  a  solution— the  translation  of  requirements 
into  ways  o-f  meeting  them  CRe-f.  6:  p.  2243.  In  our  case,  data- 
base design  is  the  process  o-f  developing  database  structures 
■from  those  -formulated  in  the  analysis  phase  o-f  Branch 
requirements.  The  resulting  design  must  satis-fy  the  needs  o-f 
the  Branch  in  terms  o-f  completeness,  integrity,  and 
per-formance  constraints.  The  design  o-f  the  system  under 
development  includes  two  steps:  the  logical  (or  conceptual) 
design,  and  the  physical  design. 


A.   LOGICAL  (CONCEPTUAL)  DESIGN 

Logical  design  is  the  process  o-f  describing  the  system 
-features,  i.e.,  the  -functions,  inputs,  -files,  the  way  the 
-files  Are  related  to  each  other  in  order  to  form  the  conceptu- 
al database  structure,  and  outputs  in  a  manner  that  meets  the 
specified  requirements.  CRe-f.  6:  p.  2253 

1 .   System  Functions 

The  system  under  development   will   per-form   the   -fol- 
lowing -functions: 

a.  Update  Operations.  This  -function  allows  the  user  to 
insert,  modify,  and  delete  records  in  all  the  supporting 
files  except  a  few  files  which  will  automatically  be 
updated,  as  they  will  be  described  later.  It  is  very 
important  for  the  Branch  to  keep  all  the  files 
up-to-date  since  the  accuracy  of  the  system  will  mainly 
depend  on  the  accuracy  of  the  files.  Update  operations 
take  place  whenever  a  transaction  comes  to  the  Branch. 


b.  Assignment  Processing  Operations.  This  -Function  will 
perform  the  scheduling  of  the  officers'  assignments  and 
will  take  place  right  after  the  annual  promotions  for 
each  rank.  Since  the  criteria  applied  in  the  assignment 
scheduling  ^re  di-f-ferent  for  each  rank,  as  we  described 
earlier,  this  -Function  will  monitor  a  number  o-f  sub- 
sequent -Functions  corresponding  one  per  rank. 

c.  Report  Generator.  This  -Function  is  -For  retrieving  all 
necessary  information  from  our  database  upon  request. 
The  requested  information  will  be  displayed  on  the 
screen  and  optionally  sent  to  the  printer. 

d.  Miscellaneous.  This  function  will  include  the  following: 

(1)  User  Author  i  z  at  i  on  Val idation.  Whenever  a  user 
attempts  to  access  the  database  via  the  existing 
programs,  the  system  will  ask  him  to  enter  his 
password.  This  password  will  be  checked  against  the 
existing  list  of  valid  passwords.  If  it  is  valid, 
the  system  will  allow  him  to  use  the  database. 
Otherwise  an  automatic  exit  to  the  underlying 
operating  system  will  take  place.  In  this  way  we 
can  prevent  unauthorized  updates  and  disclosure  of 
the  database  contents. 

(2)  User  Log.  Every  time  a  valid  user  enters  the  system 
to  do  a  specific  task,  a  record  is  automatically 
created  containing  the  user's  name,  the  date  and 
time  of  database  access  and  the  kind  of  task 
performed.  In  this  way  we  can  provide  an  audit 
trail  of  who  did  what  on  the  database  and  when  it 
took  place.  In  case  of  erroneous  updates  it  will  be 
easy  to  find  out  what  exactly  happened. 

(3)  Historical  Data  Log.  For  each  transaction  concern- 
ing officer  nomination,  promotion,  assignment, 
retirement  or  death  a  record  is  automatically 
created  containing  the  officer's  serial  number, 
rank,  type  of  transaction,  unit  and  date  the 
transaction  took  place.  This  file  is  very  useful 
for  for-  historical  purposes. 

All  the  above   functions   will   be   menu   driven.    The 
functional  blocks  of  the  system  are    illustrated  in  Figure  9. 
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Fig.  9.  Functional  Blocks  o-f  the  System. 


2.   Input  Design 

During  this  step  we  will  specify  the  manner  in  which 
data  enters  the  system  for  processing.  In  other  words  we  will 
provide  the  link  that  ties  our  system  into  the  users'  world  in 
a  way  that  guarantees  the  reliability  o-f  the  system,  avoids 
extra  steps  and  delays,  and  keeps  the  process  simple.  CRef  .  6: 
p.  2863 

The  most  e-f-ficient  way  to  achieve  the  above  objectives 
is  to  design  a  menu— driven  on— line  system.  A  menu  is  a  screen 
o-f  i  n-f  ormat  i  on  displayed  on  the  CRT  that  shows  the  user  what 
•functions  can  be  performed  and  how  to  select  them. 

A  main  menu  and  a  number  of  sub— menus  will  guide  the 
user  of  our  system  to  select  and  perform  the  appropriate 
functions  in  a  top-down  fashion  as  described  below. 

a.   Main  Menu  Description 

The   main   menu   in   Figure  10   shows   the  options 
available  to  the  user  of  the  database  system.   Each   option  is 
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identified  by  a  number.   To   invoke   a  particular  option,   the 
user  depresses  the  key  corresponding  to  the  desired  option. 


*   MAIN_MENU   * 

DATABASE  UPDATE: 1 

ASSIGNMENT  PROCESSING:...  2 

REPORT  GENERATOR: 3 

END. OF  SESSION: 4 

EXIT  TO  DOS: 5 

Enter  your  selection  -> 


Fig.  10.   Main  Menu. 


b.   Sub-menus  Description 

(1)  Update  Menu.  This  menu  is  entered  when  a   user 

selects   option  1   from   the  main  menu.   As   we   can   see   in 

Figure  11,  it  provides  seven  new  options.  Through  this  menu  we 

can  insert,   modify,   delete  records  in  the  specified  database 


*   UPDATE_MENU   * 

INSERT  RECORDS  INTO  OFFICER  FILE: 1 

INSERT  RECORDS  INTO  SCHOOLS  FILE: 2 

INSERT  RECORDS  INTO  HISTORIC  FILE:. 3 

MODIFY  RECORDS  FROM  OFFICER  FILE: 4 

MODIFY  RECORDS  FROM  REQUEST  FILE: 5 

DELETE  RECORDS  FROM  OFFICER  FILE: 6 

EXIT  TO  MAIN  MENU: 7 

Enter  your  selection  -> 


Fig.  11.  Update  Menu. 
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•files,  or  exit  to  main  menu.  The  selection  o-f  the  desired 
records  is  done  by  typing  the  record  key  o-f  the  corresponding 
database  -file.  A-fter  selecting  a  speci-fic  record,  its 
structure  is  displayed  on  the  screen  and  the  cursor  is 
positioned  in  the  -first  element  to  be  updated.  Invalid  data 
types  (numeric,  character,  logical,  or  date)  Are  not  accepted 
by  the  system.  Thus,  the  user  is  protected  from  typing  invalid 
data  types. 

(2)  Assignment  Processing  Menu.  This  menu  is  dis- 
played in  case  a  user  selects  option  2  from  the  main  menu 
(Figure  10).  This  menu  provides  seven  options  as  it  is  shown 
in  Figure  12.  Each  function  is  performed  by  selecting  the  cor- 
responding number.  The  actual  input  data  required  for  proces- 
sing the  assignments  ars  database  files,  but  those  files  Are 
selected  by  the  corresponding  application  programs,  so  the 
user  does  not  have  to  worry. 


*   ASS I GNMENT_PRQCESS I NG_MENU   * 

1st  LIEUTENANT  ASSIGNMENT  PROCESSING:...  1 

2nd  LIEUTENANT  ASSIGNMENT  PROCESSING:...  2 

CAPTAIN  ASSIGNMENT  PROCESSING: 3 

MAJOR  ASSIGNMENT  PROCESSING: 4 

LIEUT.  COLONEL  ASSIGNMENT  PROCESSING: ...  5 

COLONEL  ASSIGNMENT  PROCESSING: 6 

EXIT  TO  MAIN  MENU: 7 

Enter  your  selection  -> 


Fig.  12.  Assignment  Processing  Menu, 


(3)  Report  Generator  Menu.   This  menu  is  displayed 
when  the  user  selects  option  3  from  the  main  menu  (Figure  10). 
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From  this  menu  a  user  can  select  the  desired  output   (list  or 
report).  Figure  13  shows  the  details  o-F  this  menu. 


*  REFQRT_GENERATQR_MENU  * 

LIST  OF  SCHEDULED  ASSIGNMENTS: 1 

LIST  OF  OFFICERS  OF  ANY  DESIRED  UNIT: 2 

LIST  OF  OFFICERS  IN  ANY  DESIRED  ORDER: 3 

LIST  OF  OFFICERS  OF  ANY  DESIRED  RANK: 4 

LIST  OF  BATTALION  COMMANDERS: 5 

LIST  OF  OFFICERS  SERVING  OUTSIDE  THE  BRANCH:  6 

OFFICER'S  SERVICE  TIME  REPORT: 7 

OFFICER'S  STATUS  REPORT: 8 

EXIT  TO  MAIN  MENU: 9 

Enter  your  selection  -> 


Fig.  13.  Report  Generator  Menu. 


3.   Fi le  Design 

To  support  the  above  specified  -functions  the  following 

■files  with  the  corresponding  structures  will   be  created.   The 

names  o-f  the  -files  and  fields  a.re    the  ones   that  will  be   used 
in  our  system. 

a.   OFFICER  File. 

It  is  the  main  file  containing  all  required  infor- 
mation for  each  officer.  Figure  14  shows  the  structure  of  the 
OFFICER  file,  as  well  as  the  explanation  of  the  fields. 
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FIELD 

NAME 

NAME 

TYPE 

WIDTH 

01 

C 

018 

02 

SERNO 

C 

005 

03 

RANK 

c 

002 

04 

NOMYEAR 

c 

002 

05 

SPECIALTY 

c 

001 

06 

SOURCE 

c 

004 

07 

NOMDATE 

Date 

008 

08 

PROMDATE 

Date 

008 

09 

ASWEIGHT 

C 

002 

10 

GRIGCITY 

C 

006 

11 

ORIGCOUNTY 

C 

008 

12 

MARSTAT 

C 

001 

13 

CHILDREN 

N 

001 

14 

WORKWIFE 

L 

001 

F I ELD-EXPLANAT I ON 

Officer's  name 
Officer's  serial  number 
Officer's  rank 
Year  of  nomination 
O-f-Ficer's  specialty 
O-f-ficer's  source  (MA,  NCOS) 
Nomination  Date 
Promotion   Date 
Weight  -for  next  assignment 
City  o-f  o-f-ficer's  origin 
County  o-f  o-f-ficer's  origin 
O-f-ficer's  marital  status 
Number  o-f  children 
Working  wife 


Primary  Key 


SERNO 


Fig.  14.  Structure  -for  -file  OFFICER. 


b.   SERVES  File 

This  -file  contains  information  re-flecting  the  cur- 
rent service  status  o-f  each  officer  (unit  he  is  assigned  to, 
enrollment  date,  duty).  Its  structure  and  the  explanation  o-f 
-fields  is  shown  in  Figure  15. 


FIELD   NAME 


01 

SERNO 

C 

005 

02 

UNITNAME 

C 

008 

03 

ENR0LDATE 

DATE 

008 

04 

DUTY 

C 

010 

TYPE    WIDTH   FIELD-EXPLANATION 


Officer's  serial  number 
Unit  name 
Enrollment  date 
Officer's  duty 


Primary  Key  :  -CSERNO,  UNITNAME> 


Fig.  15.  Structure  for  File  SERVES. 


c.   REQUESTS  File 

This   -file   contains   o-f-ficers'  requests  -For  their 
next  assignment.  Figure  16  provides  the  details  of  this  -file. 


FIELD   NAME 


01 

SERN0 

C 

005 

02 

STAFF0FFIC 

L 

001 

03 

SUBMDATE 

DATE 

008 

04 

UNIT1 

C 

008 

05 

UNIT2 

C 

008 

06 

UNIT3 

C 

008 

TYPE    WIDTH   FIELD-EXPLANATION 


0-f-ficer's  serial  number 
Sta-f-f  O-Fficer  (T  or  F  ) 
Request's  submission  date 
First  requested  unit 
Second  requested  unit 
Third  requested  unit 


Primary  Key  :  SERNQ 


Fig.  16.  Structure  -for  File  REQUESTS. 


d.   ASSIGNED  File 

This   is   a   temporary   -file   created   during   the 

assignment  processing,   containing  in-formation   concerning 

theo-f-f  i  cers  to  be  assigned  to  some  unit.  Details  o-f  this  file 
areprovided  in  Figure  17. 


FIELD   NAME 


TYPE 


WIDTH   FIELD-EXPLANATION 


01 

SERN0 

C 

005 

Officer's  serial  number 

02 

RANK 

C 

002 

Rank 

03 

SOURCE 

C 

004 

Source  (MA  or  NCOS) 

04 

SPECIALTY 

C 

001 

Speci  al ty 

05 

UNITNAME 

C 

008 

Unit  name 

06 

ASGNDATE 

DATE 

008 

Assignment  date 

07 

ASNWEISHT 

N 

002 

Assignment  Weight 

Primary  Key:  -CSERNO,  UNITNAME} 


Fig.  17.  Structure  for  File  ASSIGNED. 
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e.   UNITORG  File 

This  -file  contains  information  about  the  organi- 
zation o-f  each  unit  according  to  the  operational  readiness 
type  and  type  o-F  echelon  as  depicted  in  Figure  18. 


FIELD   NAME 


TYPE 


WIDTH   FIELD-EXPLANATION 


01 

ECHELON 

C 

005 

02 

READINESS 

C 

001 

03 

MAC06 

N 

002 

04 

MAC05 

N 

002 

05 

MAC04 

N 

002 

06 

NC0SC04 

N 

002 

07 

NC0ST04 

N 

002 

08 

NC0SA04 

N 

002 

09 

MAC03 

N 

002 

10 

NC0SC03 

N 

002 

11 

NC0ST03 

N 

002 

12 

NC0SA03 

N 

002 

13 

MAC02 

N 

002 

14 

NC0SC02 

N 

002 

15 

NC0ST02 

N 

002 

16 

NC0SA02 

N 

002 

17 

MAC01 

N 

002 

18 

NC0SC01 

N 

002 

19 

NC0ST01 

N 

002 

20 

NC0SA01 

N 

002 

Type  o-F  echel 
Operational  r 
MA  commanding 
MA  commanding 
MA  commanding 
NCOS  command i 
NCOS  technici 
NCOS  administ 
MA  commanding 
NCOS  command i 
NCOS  technici 
NCOS  administ 
MA  commanding 
NCOS  command i 
NCOS  technici 
NCOS  admin.  1 
MA  commanding 
NCOS  command i 
NCOS  technici 
NCOS  admin.  2 


on 
eadiness 

colonel s 

It.  colonels 

majors 
ng  majors 
an  majors 
rative  majors 

captains 
ng  captains 
an  captains 
rative  captains 

1st  lieuten. 
ng  1st  lieuten. 
an  1st  lieuten. 
st  lieutenants 

2nd  1 ieuten. 
ng  2nd  1 ieuten. 
an  2nd  1 i  euten . 
nd  lieutenants 


Primary  Key:  -CECHELON,  READINESS> 


Fig.  18.  Structure  -For  File  UNITORG. 


■f.   UNIT  Fil 


This       -File       contains       in-Formation    about    each    unit 
The       Structure       o-F       the       -File       and       explanation       o-F       -Fields    i< 
depicted    in    Figure    19. 


FIELD   NAME 


01 

UNITNAME 

C 

008 

02 

CATEGORY 

C 

001 

Oo 

ECHELON 

C 

005 

04 

READINESS 

C 

001 

05 

CITY 

C 

010 

06 

COUNTY 

C 

010 

TYPE    WIDTH   FIELD-EXPLANATION 


Unit  name 

Unit  category 

Type  o-f  echelon 

Unit  readiness 

City  o-f  unit  station 

County  o-f  unit  station 


Primary  Key:  UNITDESCR 


Fig.  19.  Structure  -for  File  UNIT. 


h.   HISTORIC  File 

This  -file  records  all  major  o-f-ficer's  transactions 
which  have  taken  place  during  his  career.  Major  transactions 
a.r&  considered  to  be  the  nomination,  promotions,  assignments, 
retirement,  and  death.  Usually  there  are  more  than  one  entry 
-for  each  o-f-fi  cer  in  this  -file.  The  structure  of  the  -file  and 
-field  explanation  is  shown  in  Figure  20. 


FIELD   NAME 


TYPE    WIDTH   FIELD-EXPLANATION 


01 

SERN0 

C 

005 

02 

RANK 

C 

002 

03 

TRANSTYPE 

C 

012 

04 

UNIT 

C 

008 

05 

TRANSDATE 

DATE 

008 

06 

ORDER ID 

C 

020 

0-f-ficer's  serial  number 

0-f-ficer's  rank 

Transaction  type 

Unit  name 

Date  the  transaction  occured 

Order  caused  the  transaction 


Primary  Key:  -CSERN0,  TRANSDATE> 


Fig.  20.  Structure  -for  File  HISTORIC 
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■f.   SCHOOLS  File 

This  -File  contains  in-f  armati  on  about  military  and 
non— military  studies  o-f  the  o-f-ficers.  It  is  possible  -for  an 
o-F-ficer-  to  have  more  than  one  record  in  this  file  depending  on 
the  number  o-f  schools  he  has  attended.  Records  Are  created 
only  -for  o-f-ficers  who  studied  -for  at  least  one  year  in  some 
school.  Details  ^re    shown  in  Figure  21. 


FIELD   NAME 


01 

SERN0 

C 

005 

02 

SCH00LNAME 

C 

010 

03 

DEGREE 

C 

012 

04 

OBJECT 

C 

018 

05 

COUNTRY 

C 

010 

06 

DURATION 

N 

002 

07 

GRADDATE 

DATE 

008 

TYPE    WIDTH   FIELD-EXPLANATION 


Q-f-ficer's  serial  number- 
School  -name 
Title  obtained 
Object  o-f  studies 
Country  o-f  studies 
Studies  duration  in  month< 
Graduation  date 


Primary  Key  :  -CSERN0,SCH00LNAME> 


Fig.  21.  Structure  o-f  -file  SCHOOLS. 


i.   SELECTED  -file 

This  -file  contains  all  o-f-ficers  who  have  been  se- 
lected by  the  Branch  to  study  in  some  school  -for  at  least  one 
year.  The  structure  o-f  the  -file  is  shown  in  Figure  22. 
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FIELD   NAME  TYPE    WIDTH   F I ELD-EXPLANAT I ON 

01  SERNO         C       005    O-f-ficer's  serial  number 

02  SCHOOLNAME    C       010    Name  o-F  the  school 

03  SCHOOLYEAR    C       002    Year  the  o-f-ficer  will  be 

sent  to  the  school 

Primary  Key:  -CSERN0> 

Fig.  22.  Structure  for  File  SELECTED 

j.   USERLOG  File 

This  -file  records  all  users'  activities  on  the 
database  system.  Details  o-F  the  -file  structure  and  -field- 
explanation  ar&    shown  in  Figure  23. 

FIELD   NAME  TYPE    WIDTH   FIELD-EXPLANATION 

User's  name  used  the  system 
Task  performed  in  the  system 
Program  executed 
Date  o-f  using  the  system 
Time  o-f  using  the  system 

Primary  Key:  -CL0GDATE,  L0GTIME> 

Fig.  23.  Structure  for  File  USERLOG. 

i.   USERID  File 

This  -file  contains  all  valid  passwords  and  the 
user's  name  corresponding  to  each  password,  as  it  is  described 
in  Figure  24. 


01 

USERNAME 

C 

018 

02 

TASK 

C 

010 

03 

PR0GRAME 

C 

10 

03 

L0GDATE 

DATE 

008 

04 

L0GTIME 

C 

005 
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FIELD   NAME          TYPE  WIDTH  F I ELD-EXPLANAT I ON 

01  PASSWORD      C       006  A  prede-f  i  ned  password 

02  USERNAME      C       018  User's  name 

Primary  Key:  PASSWORD 


Fig.  24.  Structure  -for  File  USERID. 


4.   Conceptual  Database  Structure 

The  -files  described  above  Are  related  as  illustrated 
in  the  entity/relationship  diagram  shown  in  Fig.  25.  The 
rectangles  represent  entity  sets  (-files),  and  the  diamonds 
repesent  relationships  between  entity  sets.  A  relationship  is 
also  an  entity  set  containing  attributes  (usually  the  keys) 
from  all  other  entity  sets  which  Are  linked  together  via  this 
relationship.  As  we  can  see  in  this  diagram  each  o-f-ficer 
serves  in  some  unit  which  has  an  organization,  he  requests 
some  units  to  be  assigned  to  in  his  next  assignment,  he  may  be 
assigned  to  some  unit,  he  may  have  studied  in  some  school (s) 
or  he  may  have  been  selected  to  study  in  some  school,  and  he 
has  some  historic  data.  The  entity  sets  USERID  and  USERL0G 
Are  not  linked  with  the  other  entity  sets  in  the  diagram  since 
their  -function  is  independent  -from  the  other  ones. 

Finally,  the  relational   database  scheme  is   presented 
in  Figure  26. 


51 


1  HISTQRICj 


1  SCHOOLS   1 


.SERVES 


EQUESTj 


SSIGNE] 


1  UNITORG   I 


UNIT    1 


LUSERID  V 


^  USERLOG   I 


Fig.  25.  Entity/Relationship  Diagram. 


OFFICER   -CNAME,  SERNO ,  RANK,   NOMYEAR ,   SPECIALTY,   SOURCE, 

NOMDATE,  PROMDATE,  ASNWEIGHT , ORIGCITY, ORIGCOUNTY , 

MARSTAT,  CHILDREN,  WORKWIFE} 
SERVES    -CSERNO,  UNITNAME,  ENROLDATE,  DUTY} 

REQUESTS  -CSERNO,  WCF  INI  SHED,  SUBMDATE,  UNIT1  ,  UNIT2,  UNIT3> 
ASSIGNED  -CSERNO,    RANK,    SOURCE,    SPECIALTY,    UNITNAME, 

ASGNDATE,  ASNWEIGHT} 
UNIT      -CUNITNAME,   CATEGORY,    ECHELON,   READINES,   CITY, 

COUNTY} 
UNITORG   -CECHELON,  READINESS,  MAC06 ,  MAC05,  MAC04 ,  NC0SC04 , 

NC0ST04,    NC0SA04,    MAC03 ,    NC0SC03 ,   NC0ST03 , 

NC0SA03,  MAC02,  NC0SC02 ,  NC0ST02 ,  NC0SA02 ,  MACOl , 

NCOSCOl,  NCOSTOl,  NCOSAOl} 
SELECTED  -CSERNO,  SCHOOLNAME ,  SCHOOL  YEAR} 
SCHOOLS   -CSERNO,   SCHOOLNAME,   DEGREE,    OBJECT, 

DURATION,  GRADDATE} 
HISTORIC  -CSERNO,    RANK,    TRANSTYPE ,    UNIT, 

ORDERID} 
USER  ID    -CPASSWORD,  USERNAME} 
USERLOG   -CUSERNAME,  TASK,  PROGNAME ,  LOGDATE ,  LOGTIME} 


COUNTRY, 
TRANSDATE, 


Fig.  26.  The  Relational  Database  Scheme. 
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5.   Output  Design 

The  most  important  -feature  o-f  an  information  system 
for  users  is  the  output  it  produces.  No  matter  how  reliable  a 
system  is,  if  it  does  not  produce  quality  output,  users  may 
feel  the  entire  system   unnecessary.  CRef .  6:'  p.  231] 

The  term  'output'  is  applied  to  any  information  produ- 
ced by  a  system  whether  printed,  displayed,  or  spoken.  In  our- 
case  the  produced  output  will  be  printed  and/or  displayed, 
depending  on  how  the  user  wants  it.  Our  goal  is  to  design  the 
output  in  such  a  way  that  it  can  be  easily  read  and  understood 
by  the  user. 

As  discussed  earlier  the  system  output  will  be  lists 
and  reports  (Figure  13).  The  length  of  the  output  lines  will 
be  up  to  80  characters  in  order  to  be  able  to  fit  either  on 
the  screen  or  on  the  standard  8':<11'  sheet  of  paper. 

a.   Lists 

(1)  List  of  Scheduled  Assignments.  This  list  is 
produced  each  time  assignment  processing  function  is  executed. 
The  format  of  this  list  is  shown  in  Figure  27. 


ABD/HAGS  DATE; 


LIST_QF_SCHEDULED_ASSIGNMENTS_FOR_. . . (RANK) .... 

[SERIAL!          NAME         !  UNIT  J   DUE 

!  NUMBER  ! !_SQURCE  !  DESTINATION  i  DATE 

20793   Armstrong  David  K.   AC/1  AC      AS  05/21/86 

22467   Babbit  Almon  P.      AS           ABD/HAGS  05/25/86 

20845   Norton  Harold  G.     ABD/HAGS     111  FAB  05/14/86 


Fig.  27.  List  of  Scheduled  Assignments. 
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(2)  List  o-f  Q-f-ficers  in  Any  Desired  Order.  This 
List  (Figure  28)  contains  all  Artillery  o-f-f  icers  in  any  o-f  the 
■Following  orders: 

(a)  Alphabetical. 

(b)  Rank. 

(c)  Specialty. 

(d)  Rank  and  alphabetical. 

ABD/HAGS  DATE:../../.. 


list_qf_artilleryj3fficers_in_ _order 

! rank !      name      \ ser i al ! sou- ! spec i - !  unit   ! marital! 
:    : :  number  :  rce  :  alty  : :status_: 

08   Down  Kenneth  R. 
07   Calaunan  Tend  6. 


2000 1 

MA 

C 

ABD/HAGS 

M 

200 1 7 

MA 

C 

ARTC 

M 

Fig.  28.  List  o-f  Artillery  0-f-ficers  in  Some  Order 


(3)  List  o-f  Q-f-f  icers  o-f  a  Desired  Unit.  This  list 
contains  all  o-f-f  icers  serving  in  a  speci-fic  unit.  The  -format 
o-f  the  list  is  shown  in  Figure  29. 


ABD/HAGS  DATE: ■ . /■ . / 

LIST  OF  OFFICERS  SERVING  IN  ...(UNIT)... 


: rank: serial:       name      :    duties      : enrollment: 
:    :  number  : : :    date  : 

05   20261   Franclin  Adams  P.    Battalion  CDR       05/20/84 
04   20768   Ervin  Joseph  H.      Deputy  CDR  06/25/85 


Fig.  29.  List  o-f  0-f-ficers  o-f  a  Speci-fic  Unit. 
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(4)  List  of  Of f icers  of  Any  Desired  Rank.  This 
list  contains  all  Artillery  o-f f icers  o-F  any  desired  rank.  The 
format  of  the  list  is  shown  in  Figure  30. 


ABD/HAGS 


LIST  OF  ARTILLERY  ...(RANK). 


DATE; 


: serial: 
: number : 


NAME 


: source : spec i alty :  unit 


! mar i tali 
; status  ; 


20270  Bell  Richard  K. 

20273  Anzini  Danniel  D, 

20275  Ariss  Bruce  F. 

20277  Gray  Joseph  W. 


MA 

C 

111  FAB 

M 

MA 

C 

113  MHAB 

M 

MA 

C 

ABD/HAGS 

S 

MA 

c 

AC/1  AC 

D 

Fig.  30.  List  of  Officers  of  Any  Desired  Rank 


(5)  List  of  Battal ion  Commanders.  This  List  con- 
tains all  Artillery  Battalion  commanders.  Details  of  the  list 
are    provided  in  Figure  31. 


ABD/HAGS 


DATE: 


LIST  OF  ARTILLERY  BATTALION  COMMANDERS 


RANK 


NAME 


UNIT 


ENROLLMENT  DATE 


05  Cabral  David  T. 

05  Gray  Joseph  W. 

05  Franclin  Adams  P. 

05  Norton  Harold  G. 

05  Jarecki  Edward  L 


212  FAB 
112  FAB 
211  FAB 
111  FAB 
11  FA/AB 


06/26/85 
06/18/84 
06/23/85 
07/01/84 
07/28/85 


Fig.  31.  List  of  Battalion  Commanders. 


(6)  List  of  Officers  Serving  Outside  the  Branch. 
This  list  contains  all  Artillery  o-fficers  who  serve  outside 
the  Branch.  The  format  of  the  list  is  shown  in  Figure  32. 


ABD/HAGS  DATE: ../../ 


L I ST_QF_ART I LLER Y_QFF I CERS  _SERV I MG  _OUTS I DE  THE_BRANCH 

RANK  !  NAME  i      UNIT      i  ENROLLMENT  ..DATE 

07     Billeb  James  W.  HAGS  03/12/85 

06     Wapper  Alfrend  D.         1  AC  04/20/85 


Fig.  32.  List  of  Officers  Serving  Outside  the  Branch 


b.   Reports 

(1)  Officer  's  Service  Time  Report.  This  report 
contains  a  summary  of  the  major  transactions  of  an  officer, 
having  occurred  during  his  career.  The  format  of  this  report 
is  shown  in  Figure  33. 


ABD/HAGS  DATE: ../../ 

OFFICER'S  SERVICE  TIME  REPORT 


SERIAL  NUMBER:  NAME:  

SOURCE:  . SPECIALTY:  ...  ORIGIN: , 

DATE   I  TRANSACT  I QN_TYPE1 RANK!   UNIT   i        ORDER  ID 
07/20/60     Nomination      01   MA        F.  430/21 /621/NDD 
08/20/60     Assignment      01   AS        F.  435/24/321 /ABD 


Fig.  33.  Officer's  Service  Time  Report. 
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(2)  Officer  's  Status  Report.  This  report  provides 
all  inf ormation  re-Fleeting  an  officer's  current  status.  The 
■Format  o-F  this  report  is  shown  in  Figure  34. 


ABD/HAGS 


DATE: 


/.  .  / 


OFFICER'S  STATUS  REPORT 


NAME 

SERIAL  NUMBER 

RANK 

SOURCE 

SPECIALTY 

NOMINATION  YEAR 

MARITAL  STATUS 

CHILDREN 

ORIGIN 

UNIT 

ENROLLMENT  DATE 

DUTIES 


/.  .  / 


Fig.  34.  O-f-ficer's  Status  Report 


B.   PHYSICAL  DESIGN 


Physical  design  is  the  process  o-f  trans-formation.  The 
logical  schema  is  trans-formed  into  a  working  system.  This 
trans-formation  is  done  through  the  tools  that  Are  available 
with  the  DBMS  to  be  used.  CRef.  1:  p.  188D  More  specifically, 
during  this  step  we  will  de-fine  the  files  described  above  and 
store  them  into  our  database,  as  well  as  create  the  programs 
that  will  manipulate  the  -files  through  the  dBASE  III  DBMS. 

The  database  schema  or-  more  simply  the  files  that  form  the 
database  Are  defined  via  the  Data  Definition  Language  (DDL) 
provided  by  the  DBMS,  and  the  programs  Are  created  via  the 
Data  Manipulation  Language  (DML) .  dBASE  III  provides  only  one 
language  which  serves  both  purposes. 


1 .  Fi  le  Def  i n i  t i on /Cr eat i on 

The  -Files  Are  de-Fined  by  using  the  'CREATE'  dBASE  III 
command.  This  command  allows  us  to  de-Fine  the  structure  o-F 
each  -File  to  be  used  by  the  database  system.  Since  a  -File  is  a 
collection  o-F  records  of  the  same  type,  our  job  here  is  to 
describe  the  structure  o-F  the  records  of  each  -File,  i.e.,  the 
attribute  (-Field)  names,  their  types  (character,  numeric, 
logical,  date),  and  their  sizes.  Using  this  command  we  de-Fine 
all  -Files  described  above. 

The  records  o-F  each  -File  Are  stored  in  the  database  by- 
using  the  command  'APPEND'.  Be-Fore  we  use  this  command  we  have 
to  open  the  database  -File  the  records  to  be  stored  in  by  using 
the  command  'USE  -Fn',  where  '-Fn'  is  the  file  name.  The  records 
Are    stored  sequentially  in  the  database  file. 

A  small  number  of  records  for  each  file  has  been 
created  and  stored  in  the  database,  so  that  we  will  be  able  to 
test  the  programs  when  they  have  been  completed. 

2.  Program  Creation 

The  next  step  is  to  write  the  software  which  will 
perform  the  specified  functions  by  manipulating  our  database 
via  the  dBASE  III  DBMS,  and  producing  the  required  output. 

Our  primary  goal  is  to  produce  a  comprehensive  working 
system  that  can  be  effectively  and  easily  used  by  people  who 
are    not  programmers. 

The  whole  program  has  been  decomposed  into  a  number  of 
interconnected  modules  in  a  hierarchical  top-down  fashion,  as 
depicted  in  the  program  structure  chart  in  Figure  35.  The 
actual  programs  Are    presented  in  APPENDIX  A. 
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IV.  SYSTEM  IMPLEMENTATION 


Implementation  includes  all  those  activities  that  take 
place  to  convert  -from  the  old  system  to  the  new.  The  new  auto- 
mated system  which  has  been  already  developed,  is  proposed  to 
replace  the  existing  manual  system.  Proper  implementation  is 
essential  to  provide  a  reliable  system  to  meet  the  speci-fied 
requirements. 

The  aspects  o-f  implementation  which  will  be  discussed  here 
include  hardware  requirements,  training  personnel,  conversion 
procedures,  and  so-ftware  description/documentation. 


A.   HARDWARE  REQUIREMENTS 

To  implement  our  system  using  dBASE  III  DBMS  we  need  a 
16— bit  microcomputer  using  MS  DOS  or  PC  DOS  version  2.0.  or 
later.  Any  16— bit  microcomputer  that  is  -fully  so-ftware  compa- 
tible with  the  the  IBM  PC  or  IBM  PC/XT  should  be  able  to  use 
the  system.  The  computer  must  have  a  minimum  o-f  320k  o-f  RAM, 
one  20M  byte  hard— disk  drive,  and  at  least  one  floppy  disk 
drive.  Any  printer  that  can  print  80  columns  o-f  text  can  be 
used . 

The  RAM  is  allocated  as  -follows. 

1.  About   50K   bytes   -for   operating   system    requirements 
(resident  part  o-f  DOS). 

2.  180K  bytes  for  the  dBASE  III  system  program. 

3.  About   16K   bytes  for  the  user's  program  currently  being 
executed  (this  is  the  size  of  the  biggest  program). 
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4.  The  rest  of  memory  is  allocated  to  the  required  working 
areas  (bu-f-fers  -for  the  -files  currently  being  open). 

In  case  we  want  to  use  another  customer— suppl ied  program 
(word  processor,  etc.)  along  with  dBASE  III,  additional  memo- 
ry is  required. 

The  hard-disk  size  has  been  calculated  on  the  basis  of  a 
■full  scale— model  as  follows. 

1.  About  130K  bytes  -for  the  user  programs. 

2.  About  12M  bytes  -for  the  required  database  -files  and 
index  -files.  These  -files  will  contain  data  -for  10,000 
officers  (worst  case  senario). 

3.  About  12K  bytes  for  the  format  files. 

4.  About  100K  for  text  files. 

The  rest  of  the  hard— disk  space  can  be  used  for  future 
improvements  of  the  system,  as  well  as  for  other  data  storage 
needs. 


B.   TRAINING  PERSONNEL 

Since  the  system  is  implemented  on  a  microcomputer,  the 
need  for  training  is  limited  only  to  a  few  individuals  who 
will  be  both  operators  and  users.  Those  individuals  who  are 
going  to  use  the  new  system  should  know  how  to  use  a  micro- 
computer (how  to  turn  on  the  system,  how  to  insert  a  diskette, 
when  it  is  safe  to  turn  off  the  equipment  without  danger  of 
data  loss,  or  how  to  determine  whether  a  problem  arising  is 
caused  by  the  equipment,  software  or  something  they  have  done 
in  using  the  system) ,  what  software  they  will  use  for  the 
system,  and  how  they  should  use  it  to  perform  a  specific  task. 

As  the  above  discussion  demonstrates,  there  Are  two 
aspects  to  user  training:  familiarization  with  the   processing 
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system  itself  (equipment  used)  and  training  in  using  the  the 
application  (that  is,  the  software  that  accepts  the  data, 
processes  it,  and  produces  the  results).  Our  intent  is  to 
train  a  -few  users  how  to  use  the  system  in  order  to  accomplish 
their  task,  and  not  to  teach  them  how  to  write  new  programs. 
Ther-fore,  both  aspects  mentioned  above  can  be  covered  in  a 
very   short  time  period  (  one  or  two  weeks). 


C.   CONVERSION  PROCEDURES 

Conversion  is  the  process  of  changing  the  old  system  to 
the  new  one.  The  method  we  will  use  -For  converting  from  the 
existing  manual  to  the  new  automated  system  is  the  parallel 
systems.  That  is,  the  Branch  will  continue  to  operate  the  old 
system  in  the  accustomed  manner  but  it  also  will  begin  using 
the  new  system.  This  method  is  the  safest  conversion  approach, 
since  it  guarantees  that  if  possible  errors  will  arise  in 
using  the  new  system  (processing  errors,  inability  to  handle 
certain  types  of  transactions,  or  other  inefficiencies)  they 
will  not  harm  the  Branch,  since  the  old  system  is  still  in 
use.  Another  important  advantage  of  the  parallel  systems  ap- 
proach is  that  before  the  Branch  abandons  the  manual  system, 
there  will  be  a  trial  period  for  the  new  system  during  which 
revealed  errors  and  inefficiencies  can  be  eliminated  without 
loss  of  time,  revenue,  or  service. CRef .  6:  p.  532J 


D.   SOFTWARE  DESCRIPTION /DOCUMENTATION 

The  programs  which  implement  our  database  system  have  been 
grouped  into  six  categories  according  to  the  function  they 
perform:   main   program,   main— menu   and   sub-menu    programs, 
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programs  supporting  the  update  operations,  programs  performing 
the  assignment  processing,  programs  producing  the  required 
lists  and  reports,  and  miscellaneous  programs.  All  programs 
(code) ,  as  well  as  lists  and  reports  produced  by  the  programs 
are  presented  in  APPENDIX  A. 

1 .   Main  Program 

This  program'  controls  the  entire  operation  of  the 
system  and  it  is  the  only  program  that  the  user  calls  by  name 
(MAINPROG)  .  A-fter  initializing  basic  dBASE  III  -Functions, 
MAINPROG  checks  i -f  the  user  is  authorized  to  use  the  database 
system  by  prompting  him  to  enter  his  password.  Unauthorized 
users  a.r&  aborted  and  the  program  exits  automatically  to  the 
operating  system  (DOS),  displaying  the  appropriate  message. 

In  case  the  user  is  an  authorized  one,  MAINPROG  calls 
program  GRFLAG  which  displays  on  the  screen  the  Greek  Flag. 
A-fter  a  small  delay  it  calls  program  DBSTITLE  which  provides 
the  title  o-f  the  database  system- and  prompts  the  user  to  hit 
any  key  to  continue.  Then  program  MMENU  is  called  which  is  the 
main— menu  o-f  the  system,  and  pauses  waiting  -for  the  user  to 
make  his  choice.  Then  a  CASE  statement  permits  the  program  to 
branch  to  the  appropriate  program  group  according  to  the  users 
choice  or  exit  either  to  dBASE  III  or  to  the  underlying 
operating  system.  A  DO  WHILE  loop  causes  the  process  to  be 
repeated  until  the  user  selects  option  4  or  5  in  which  case 
the  program  terminates  and  control  passes  to  dBASE  III  or  to 
the  operating  system,  respectively. 
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2.   Wain-Menu  and  Sub-menu  Programs 

a.  Main-Menu  Program  (MMENU) 

This  program  displays  on  the  screen  the  main-menu. 
This  menu  provides  a  screen  o-F  in-f ormation  that  shows  the  user 
what  -functions  can  be  per-formed  and  how  to  select  them.  Those 
functions  correspond  to  update  operations,  assignment  proces- 
sing, and  report  generation.  In  addition  it  provides  the 
option  to  exit  to  either  dBASE  III  or  the  operating  system.  A 
flashing  label  at  the  top  of  the  menu  informs  the  user  that 
the  main— menu  is  on  the  screen,  and  a  highlighted  label  at  the 
bottom  promts  him  to  enter  his  choice.  The  user's  choice  is 
expressed  by  one  of  the  numeric  characters  1  through  9.  A 
'RANGE'  statement  checks  each  time  the  user  types  a  character 
and  in  case  it  lies  outside  the  specified  range  an  appropriate 
message  is  displayed.  Also  the  'PICTURE  '9'  '  statement 
guarantees  that  the  program  does  not  accept  alphabetical  or 
other  characters.  The  subsequent  sub— menus  described  below 
work  in  a  similar  fashion. 

b.  Sub-menu  Programs 

Three  sub— menus  corresponding  one  per  basic 
function  of  the  system  (update  operations,  assignment  proces- 
sing, report  generation)  quide  the  user  to  perform  the  appro- 
priate task.  Those  sub— menus  Are  created  by  the  following 
programs. 

(1)  UPDTMENU.  This  program  provides  a  screen  of 
information  concerning  the  update  operations.  Via  this  program 
the  user  can  insert,  modify,  or  delete  records  from  the  files 
whose  names  Are  presented  on  the  screen.  UPDTMENU  is  called 
by  the  DBUPDATE  program  in  case  the  user  selects  option  1  from 
the  main— menu. 
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(2)  ASPRMENU.  This  program  displays  information 
concerning  the  assignment  processing  operations.  Through  this 
program  the  user  can  access  any  o-f  the  programs  which  perform 
the  officers'  assignments.  ASPRMENU  is  called  by  the  ASSI6NTS 
program  in  case  the  user  selects  option  2  from  the  main— menu. 

(3)  RGJMENU.  This  program  provides  a  screen  of 
information  concerning  the  report  generation  operations.  From 
this  submenu  the  user  can  access  any  of  the  programs  which 
produce  the  required  lists  and  reports.  RGMENU  is  called  by 
the  REPORTS  program  in  case  the  user  selects  option  3  from  the 
main— menu. 

3.   Programs  Supporting  the  Update  Operations 

This  group  of  programs  performs  all  the  update  opera- 
tions. That  is,  using  these  programs  we  can  insert  new  records 
into  the  database  files,  as  well  as  modify  or  delete  existing 
records  from  the  database  files.  The  programs  which  implement 
those  operations  Are    the  following: 

a.   DBUPDATE 

This  program  controls  the  entire  update  operation 
and  is  executed  whenever  the  user  selects  option  1  from  the 
main-menu.  First  the  program  calls  the  UPDTMENU  program  which 
is  the  update  sub— menu  we  described  above,  and  pauses  waiting 
for  the  user  to  make  his  choice  which  is  stored  in  the  vari- 
able 'updtcode'.  Then  a  CASE  statement  permits  the  program  to 
branch  to  the  corresponding  update  program  or  exit  to  main- 
menu.  A  DO  WHILE  loop  allows  the  program  to  keep  running  until 
the  user  decides  to  exit  to  main— menu. 
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b.   INSERTOR 

This  program  allows  the  user  to  insert  new  records 
into  the  OFFICER  -File  which  is  the  main  database  -File.  It  is 
called  by  the  DBUPDATE  program  in  case  the  user  selects  option 
1  -From  the  update  sub— menu  (UPDTMENU  program)  . 

The  program  calls  the  MFRAME  program  which  dis- 
plays a  window  on  the  left  hal-F  o-F  the  screen  into  which  all 
program  messages  and  user  data  a.re  placed  during  the  execution 
o-F  the  program.  A  message  is  displayed  on  the  screen  prompting 
the  user  to  enter  the  serial  number  o-F  the  officer  to  be 
inserted  into  the  -File.  Then  the  program  searches  the  OFFICER 
file  using  as  key  the  officer's  serial  number  to  see  whether 
the  record  exists  in  the  database  or  not.  If  the  search  is 
successful,  a  message  is  displayed  informing  the  user  that  the 
record  already  exists,  and  he  is  asked  if  there  Ar&  more 
records  to  be  inserted  into  the  database.  In  case  the  search 
operation  is  unsuccessful  (that  is,  record  does  not  exist  in 
the  database)  the  user  is  asked  if  he  needs  the  codes  required 
for  the  insert  operation  (rank,  source,  specialty,  and  marital 
status  codes).  If  his  answer  is  'Y'  (yes)  the  program  WIND0W3 
is  called  which  displays  a  window  occupying  the  right  half  of 
the  screen  containing  all  codes  and  their  explanation.  In  this 
way  the  user  can  have  on— line  help  and  the  risk  of  incorrect 
data  input  is  reduced.  Next  the  format  of  the  record  to  be 
inserted  is  displayed  on  the  left  frame  and  the  cursor  is 
positioned  at  the  first  field. 

When  the  user  finishes  the  input  of  data  for  the 
particular  officer,  the  record  is  appended  to  the  OFFICER  file 
and  the  necessary  entries  Are  created  in  some  other  database 
files.  Namely  a  record  is  created  into  the  HISTORIC  file 
containing  the  officer's  serial  number,  the  nomination  date, 
the  order  by  which  the  nomination   of   the   officer   has   been 
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known,  and  the  unit  in  which  he  serves.  The  unit  name  and  the 
order  identification  a.re  entered  by  the  user.  Then  the  created 
record  is  displayed  on  the  screen.  Also  a  record  is  created 
into  the  REQUESTS  -file  containing  only  the  o-f ff  icer  's  serial 
number.  All  other  -fields  remain  empty.  In  case  the  source  o-f 
the  o-f-ficer  is  'NCOS'  (Non-Commissioned  Officers  School),  a 
record  is  created  into  the  SERVES  -file  containing  his  serial 
number  the  unit  he  serves  and  the  enrollment  date. 

A  DO  WHILE  loop  keeps  the  program  running  as  long 
as  the  user's  answer  to  the  prompt  'MORE  INSERTIONS?  (Y/N) '  is 
'Y'. 

c.  INSERTSR 

This  program  permits  the  user  to  insert  new 
records  into  the  SCHOOLS  -file.  No  other  -files  Are  updated 
during  the  execution  o-f  this  program.  The  program  is  called  by 
the  DBUPDATE  program  in  case  the  user  selects  option  2  from 
the  update  sub— menu. 

An  officer  can  have  more  than  one  record  in  the 
SCHOOL  file  depending  on  what  and  how  many  schools  he  has  gra- 
duated from.  The  process  goes  in  a  similar-  way  with  the 
described  above  (INSERTOR  program)  except  that  the  search  is 
based  on  the  compound  key  consisting  of  the  fields  serial 
number  and  school  name  (fSERNO,SCHOOLNAME> ) .  The  user's  answer 
'N'  to  the  program's  prompt  'MORE  INSERTIONS?  (Y/N) '  causes 
the  program  to  be  terminated. 

d.  INSERTHR 

Through  this  program  the  user  can  insert  new 
records  into  the  HISTORIC  file.  It  is  called  by  the  DBUPDATE 
program  whenever  the  user  selects   option  3   from   the   update 


sub-— menu.  The  only  legal  transactions  which  can  cause  new 
records  to  be  inserted  into  the  HISTORIC  -file  -From  this 
program  Are  those  concerning  retirement  or  death.  All  other- 
transactions  &r&  aborted  by  the  program.  The  process  is  simi- 
lar with  that  described  above. 

e.   MODIFYOR 

This  program  is  called  by  the  DBUPDATE  program  in 
case  the  user  selects  option  4  -From  the  update  sub— menu,  and 
allows  him  to  modify  records  into  the  OFFICER  -file. 

When  the  program  is  entered,  it  calls  the  MFRAME 
program  whose  purpose  has  been  explained  during  the  INSERTOR 
program  description.  Then  a  message  prompts  the  user-  to  enter 
the  serial  number-  o-F  the  officer  whose  record  is  to  be  modifi- 
ed. The  program  searches  the  OFFICER  file  using  as  the  key  the 
serial  number-  typed  by  the  user.  In  case  of  an  unsuccessful 
search  an  appropriate  message  is  displayed  and  after  a  small 
delay  the  user  is  asked  if  he  wants  to  perform  more  modifica- 
tions. If  his  answer  is  'Y'  (yes)  the  process  is  repeated.  In 
the  case  of  a  successful  search  a  menu  is  displayed  inside  the 
frame  created  by  the  MFRAME  program  that  shows  the  user  which 
of  the  record— f i elds  can  be  modified  and  prompting  him  to 
enter  his  selection.  The  fields  which  can  be  modified  in  the 
OFFICER  file  ^re  the  'NAME',  'RANK'  and  'PROMDATE'  (promotion 
date),  and  those  concerning  the  family  status  ('MARSTAT', 
'CHILDREN',  'WORKWIFE').  After  the  user's  response,  the 
structure  of  the  fields  to  be  modified  Ar&  displayed  on  the 
screen  (inside  the  frame)  and  the  cursor  is  positioned  at  the 
first  field.  After  the  displayed  fields  have  been  modified  by 
the  user,  the  modified  record  is  displayed  in  an  appropriate 
format. 
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In  case  the  rank  status  has  been  changed,  a  record 
in  the  HISTORIC  file  is  automatically  created  including  the 
new  transaction  (PROMOTION).  The  new  record  is  displayed  on 
the  right  hal-f  of  the  screen  in  a  formatted  way. 

The  process  keeps  going  until  the  user's  answer  to 
the  program's  prompt  'MORE  MDIFICATIONS?  (Y/N) '   is  'N'. 

f.  MODIFYRR 

This  program  allows  the  user  to  modify  records  in 
the  REQUESTS  file,  and  it  is  called  by  the  DBUPDATE  program  in 
case  the  user  selects  option  5  from  the  update  sub-menu.  All 
fileds  of  the  records  under  modification  can  be  changed  except 
the  serial  number  which  is  the  primary  key.  The  process  is 
similar  with  that  described  above,  except  that  it  is  simpler 
since  no  other  files  Ar&  updated  during  the  execution  of  this 
program.  The  program  terminates  when  the  user's  answer  to  the 
program's  prompt  'MORE  MODIFICATIONS^  (Y/N)'  is  'N'. 

g .  DELETEOR 

Through  this  program  we  can  delete  records  from 
the  OFFICER  file.  It  is  called  by  the  DBUPDATE  program  when- 
ever the  user  selects  option  6  from  the  update  sub— menu.  The 
process  goes  as  follows. 

The  program  calls  the  MFRAME  program  (described 
earlier)  and  prompts  the  user  to  type  the  serial  number  of  the 
officer  to  be  deleted.  Then  using  the  serial  number  as  the  key 
searches  the  OFFICER  file  to  find  the  corresponding  record.  In 
case  of  an  unsuccessful  search  an  appropriate  message  is  dis- 
played and  the  user  is  asked  if  he  wants  to  continue  with  more 
deletions.  If  his  answer  is  'Y'  the  process  is  repeated.  In 
case  of  a  successful  search,  the  record   is   displayed   on  the 
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screen  along  with  the  prompt  'DELETE?  (Y/N) ' .  In  this  way  the 
user  has  the  chance  to  prevent  accidental  deletions  of 
records.  If  the  user's  answer  is  'Y'  the  record  is  marked  for 
deletion.  Then  the  program  searches  the  files  HISTORIC, 
SERVES,  REQUESTS,  and  SCHOOLS  with  the  same  key,  and  all 
records  that  match  with  the  key  Are    marked  for  deletion. 

The  process  keeps  going  until  the  user's  answer  to 
the  program's  prompt  'MORE  DELETIONS?  (Y/N)'  is  'N'.  In  this 
case,  all  files  which  include  records  marked  for  deletion  s.re 
packed,  and  control  passes  to  the  DBUPDATE  program. 

File  packing  is  a  time— consuming  operation  since 
the  entire  file  is  searched  and  marked  for  deletion  records 
are  removed.  The  situation  is  even  worst  in  case  the  file 
is  an  index  one,  since  after  the  file  packing  the  file  is  re- 
indexed.  For  this  reason,  it  is  recommended  the  delete  opera- 
tions to  be  deferred  until  before  the  end  of  the  user  session 
with  the  system,  whenever  possible. 

4.   Programs  Performing  the  Assignment  Processing 

Assignment  processing  is  the  most  difficult  part  of 
the  system.  Two  programs  for  each  rank  perform  the  assignment 
process.  During  this  process  the  necessary  criteria 
(described  during  the  system's  design)  a.r&  examined  and  a 
temporary  file  called  ASSIGNED  is  created.  This  file  contains 
the  assignments  of  the  officers  for  each  rank.  Although  these 
programs  work  in  a  similar  fashion,  we  did  not  write  only  one 
program  to  perform  the  entire  assignments,  because  this 
program  would  be  very  big  and  difficult  to  manage.  The 
programs  and  their  function  are    described  below. 
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a.  ASSIGNTS 

This  program  controls  the  entire  assignment  pro- 
cessing, and  it  is  called  from  the  MAINPROG  program  whenever 
the  user  selects  option  2  -From  the  main— menu.  The  program 
calls  the  ASPRMENU  program  (assignment  processing  sub— menu) 
described  earlier,  and  pauses  waiting  for-  the  user  to  make  his 
choice  which  is  stored  in  the  variable  'asprcode'.  Then  a  CASE 
statement  allows  the  program  to  branch  to  the  corresponding 
program  and  to  perform  the  assignments  for  the  particular  rank 
or  exit  to  the  main-menu. 

b.  ASSIBN01 

This  program  performs  the  assignments  of  the  offi- 
cers whose  rank  is  '01'  (1st  lieutenants).  It  is  called  by  the 
ASSIGNTS  program  in  case  the  user  selects  option  1  from  the 
assignment  processing  sub— menu. 

First  the  program  calls  the  MKAUXFL1  program  which 
builds  the  auxiliary  files  FILE3,  FILE4,  and  FILE5.  The  file 
FILE5  contains  all  1st  lieutenants  whose  last  assignment  took 
place  three  or  more  years  before  the  present  date  (system's 
date),  their  present  unit,  the  requested  units  for  their  next 
assignment,  and  their  assignment  weights.  The  other  two  auxi- 
liary files  (FIL6, FILET)  Are  copies  of  the  file  FILE5.  Then  it 
calls  the  WIND0W1  program  which  places  a  frame  on  the  screen 
into  which  messages  concerning  the  assignment  process  a.r& 
displayed,  and  starts  the  assignment  processing  as  follows. 

The  assignment  processing  is  a  two-pass  procedure. 
During  the  first  pass  the  program  loops  on  the  file  FILET  ta- 
king one  record  at  a  time  and  tries  to  satisfy  the  requests  of 
the  officer  under  examination.  That  is,  it  takes  the  first  re- 
quested unit  and  searches  the  FILE5  file  to   find   an   officer 


whose  present  unit  is  the  one  requested  by  the  other  officer. 
In  case  of  a  success-ful  search,  the  program  searches  the  FILE6 
file  to  see  i-F  the  requested  unit  is  also  requested  by  another 
officer.  If  it  is,  then  checks  the  assignment  weights.  In  case 
he  has  the  greatest  weight  or  his  assignment  weight  is  equal 
to  the  greatest  assignment  weight  found  and  his  marital  status 
is  not  equal  to  'S'  (single),  his  request  is  satisfied,  his 
record  in  the  FILE6  file  is  marked  for  deletion  (so  that  it 
will  not  be  examined  during  the  next  loop) ,  the  record  in  the 
FILE5  file  is  marked  for  deletion  (this  means  that  the  reque- 
sted unit  has  been  granted  and  it  cannot  be  disposed  to  an- 
other officer),  and  zero  (0)  assignment  weight  is  given  to  the 
officer.  This  number  is  going  to  be  added  to  the  total  assign- 
ment weight  in  the  corresponding  field  of  the  OFFICER  file  la- 
ter. This  weight  is  maintained  for  each  officer  during  his 
car&er  and  it  is  an  important  criterion  for  the  assignment 
process.  In  case  one  or  more. of  the  conditions  described  above 
is  false  the  program  takes  the  second  requested  unit  and  the 
same  process  is  repeated.  If  the  officer's  request  for  the 
second  unit  is  satisfied,  the  assignment  weight  which  is  given 
him  is  one  (1)  this  time.  Again  if  the  officer's  second  requ- 
est cannot  be  satisfied,  the  program  takes  the  third  requested 
unit  and  the  same  process  is  repeated.  If  his  request  for  the 
third  unit  is  satisfied,  the  assignment  weight  is  two  (2).  Fi- 
nally, if  none  of  the  three  requests  has  been  satisfied  during 
the  above  process,  the  assignment  of  the  officer  is  deferred 
for  the  second  pass.  The  output  of  the  first  pass  is  the  crea- 
tion of  one  record  per  officer  into  the  ASSIGNED  file  contain- 
ing among  other  fields  the  field  'unitname'.  This  field, 
in  case  of  a  satisfied  request  contains  the  name  of  the  new 
unit  the  officer  is  assigned  to,  or  an  asterisk  ' * '  in  the 
case  of  unresolved  assignment. 
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During  the  second  pass  the  auxiliary  tile  FILE8  is 
created  which  has  exactly  the  same  structure  with  the  ASSIGNED 
file  but  it  contains  only  the  unresolved  during  the  -first  pass 
assignments  (i.e.,  UNITNAME  =  '*').  Then  the  program  loops  on 
this  -file  taking  one  record  at  a  time  and  tries  -for  another 
time  to  satis-fy  unsatis-fied  requests.  The  process  is  similar 
with  the  -first  pass.  I-f  the  requests  -for  an  officer  cannot  be 
satisfied  even  this  time,  the  program  checks  the  FILE5  file  to 
find  an  available  unit  (not  deleted  record)  in  which  the 
officer  can  serve  according  to  his  source  and  specialty.  In 
the  case  of  a  successful  search  the  contents  of  the  'unitname' 
field  into  the  ASSIGNED  file  for  the  corresponding  officer  are 
replaced  with  the  unit  name  found  in  FILE5,  the  record  in  the 
FILE5  file  is  marked  for  deletion,  and  the  assignment  weight 
three  (3)  is  given  to  the  officer.  In  case  of  an  unsuccessful 
search  in  the  FILE5  file,  there  is  no  way  for  the  officer  to 
be  assigned  to  a  new  unit  during  this  year,  and  the  corre- 
sponding record  into  the  ASSIGNED  file  is  marked  for  deletion. 

After  the  last  record  of  the  FILE8  file  has  been 
examined  and  the  end  of  file  is  encountered,  the  ASSIGNED  file 
is  packed,  all  the  auxiliary  files  are  deleted,  and  control 
passes  to  the  ASSIGNTS  program. 

c.   MKAUXFL1 

This  program  builds  the  auxiliary  files  FILE5, 
FILE6,  and  FILET  which  are  exactly  the  same.  Those  files  whose 
use  has  been  explained  above  are  built  by  combining  the  basic 
database  files  OFFICER,  SERVES,  and  REQUESTS  (copy  and  join 
operations).  The  purpose  of  those  files  is  to  isolate  the  of- 
ficers under  assignment  whose  rank  is  '01'  (1st  lieutenants), 
and  who  have  all  the  requirements  for  the  assignment  process, 
gathering  all  the  data  into  only  three  small  files.   The  final 
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result   is   that   by   having   all  required  data  into  -fewer  and 
smaller  -files  we  reduce  the  overhead  o-f  the  search  operations 
(FIND,  LOCATE,  and  SEEK)  and  speed  up  the  processing. 

The  program  is  called  by  the  ASSIGN01  program.  It 
calls  the  program  WINDOW  which  displays  on  the  screen  a  -frame 
into  which  messages  concerning  the  process  o-f  building  the 
auxiliary  -files  are  placed.  A-fter  the  auxiliary  -files  have 
been  created  the  program  terminates  and  control  is  passed  back 
to  the  ASSI6N01  program. 

d.   ASSIGN02 

This  program  performs  the  assignments  o-f  the  2nd 
lieutenants.  It  is  called  by  the  ASSIGNTS  program  in  case  the 
user  selects  option  2  -from  the  assignment  processing  sub— menu. 

The  process  o-f  the  program  goes  in  a  similar  way 
as  the  ASSIGN01  program  with  the  -following  exceptions: 

(1)  First,  the  2nd  lieutenants  who  graduate  -from  the 
Military  Academy  are  assigned  to  the  Artillery  School 
-for  1— year  training.  As  it  is  expected  no  assignment 
weights  are    examined,  neither  requests  exist. 

(2)  Next,  the  2nd  lieutenants  who  complete  their-  1-year 
training  in  the  Artillery  School  are  assigned  to  the 
Artillery  Recruit  Training  Center.  Again  no  requests  or 
assignment  weights  are    examined. 

(3)  Then  all  2nd  lieutenants  whose  source  is  the  Military 
Academy  and  who  have  served'  in  the  Artillery  Recruit 
Training  Center  are  assigned  to  the  combat  units  in 
which  they  can  serve  according  to  the  organization 
table  of  the  units.  During  this  process  only  the 
officers'  requests  are  examined,  since  the  assignment 
weight  is  zero  (0)  for  all  these  officers. 

(4)  Finally  the  assignments  of  the  2nd  lieutenants  whose 
source  is  the  Non— Commissi oned  Oficers  School  and  who 
have  completed  the  necessary  time  in  the  same  unit 
(greater  than  or  equal  to  3  years)  are    performed. 
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e.  MKAUXFL2 

This  program  is  called  by  the  ASSIBN02  program, 
and  it  builds  the  required  auxiliary  -Files  -For  the  assignment 
processing  o-F  the  2nd  lieutenants.  Its  -Function  is  exactly  the 
same  as  the  MKAUXFL1  described  above.  The  only  difference  is 
that  the  auxiliary  -Files  built  contain  data  concerning  the  2nd 
lieutenants.  The  program  calls  the  WIND0W1  program,  and  when 
all  the  auxiliary  -Files  have  been  built  control  passes  back  to 
the  ASSIGN02  program. 

f.  ASSIGN03 

This  program  performs  the  assignments  of  the 
captains.  It  is  called  by  the  ASSIGNTS  program  in  case  the 
user  selects  option  3  from  the  assignment  processing  sub-menu. 
Its  function  is  exactly  the  same  as  the  ASSIGN01  program 
described  earlier.  The  only  difference  is  that  it  makes  as- 
signments for  the  captains  this  time. 

The  program  first  calls  the  MKAUXFL3,  and  next  the 
WIND0W1  programs.  After  its  termination,  control  passes  to  the 
ASSIGNTS  program. 

g.  MKAUXFL3 

This  program  is  called  by  the  ASSIGN03  program  du- 
ring the  captains'  assignment  processing.  Its  structure  and 
function  is  exactly  the  same  as  that  described  in  MKAUXFL1. 
The  only  difference  is  that  the  auxiliary  files  FILES,  FILE6, 
and  FILET  contain  data  concerning  the  captains  to  be  assigned. 
The  program  calls  the  WINDOW  program.  After  its  termination, 
control  passes  to  the  ASSIGN03  prqgram. 


h.   ASSIGN04 

This  program  performs  the  assignments  o-f  the 
majors  and  it  is  called  by  the  ASSIGIMTS  program  in  case  the 
user  selects  option  4  -from  the  assignment  processing  sub-menu. 
Its  structure  and  -Function  is  almost  the  same  as  the  ASSIGN01 
program  with  the  -following  exceptions. 

(1)  First  the  majors  graduating  -from  the  War  College  Are 
assigned  to  sta-f-f  units  within  the  Branch.  Assignment 
weights  and  officers'  requests  Are  taken  into 
consideration. 

(2)  Next,  the  rest  of  majors  whose  last  assignment  took 
place  two  or  more  years  before  the  present  date 
(system's  date),  Are  assigned  to  units  inside  or 
outside  the  Branch,  or  to  the  War-  College  for  training. 
Officers  assigned  to  staff  units  or  to  units  outside 
the  Branch  must  have  graduated  from  the  War  College. 
Assignment  weights  and  officers'  requests  Are  examined. 
An  officer  is  assigned  to  the  War  College  for  training 
only  in  case  he  has  been  proposed  by  the  Branch.  For 
this  reason,  the  file  SELECTED  is  checked  each  time  a 
major's   assignment  is  processed. 

The  program  calls  the  MKAUXFL4,  and  WIND0W1 
programs.  When  the  program  terminates,  control  passes  to  the 
ASSIGNTS  program. 

i .   MKAUXFL4 

This  program  is  called  by  the  ASSIGN04  program  and 
builds  the  required  auxiliary  files  for  the  assignment  proces- 
sing of  the  majors.  Its  structure  and  function  is  similar  to 
the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
When  the  program  terminates,  control  is  passed  to  the  ASSIGN04 
program. 
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j.   ASSIGN05 

This  program  performs  the  assignments  of  the  lieu- 
tenant colonels.  It  is  called  by  the  ASSIGNTS  program  in  case 
the  user  selects  option  5  -from  the  assignment  processing  sub- 
menu. Its  structure  and  function  is  almost  similar-  to  the 
ASSIGN01  program,  with  the  fallowing  exceptions. 

(1)  The  lieutenant  colonels  can  be  assigned  to  units  inside 
or  outside  the  Branch. 

(2)  Officers  assigned  to  staff  units  or  to  units  outside 
the  Branch  must  have  completed  the  requirements  for 
their  rank,  and  they  must  have  graduated  from  the  War- 
Col  lege. 

The  program  calls  the  MKAUXFL5,  and  WIND0W1 
programs.  After  its  termination,  control  passes  to  the 
ASSIGNTS  program. 

k.   MKAUXFL5 

This  program  is  called  by  the  ASSIGN05  program  and 
builds  the  required  files  for  the  assignment  processing  of  the 
lieutenant  colonels.  Its  structure  and  function  is  similar 
to  the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
When  it  terminates,   control   passes  to  the  ASSIGN05  program. 

1.   ASSIGN06 

This  program  performs  the  assignments  of  the  colo- 
nels. It  is  called  by  the  ASSIGNTS  program  in  case  the  user- 
selects  option  6  from  the  assignment  processing  sub— menu.  Its 
function  is  similar  to  the  ASSIGN05  program.  The  program 
calls  the  MKAUXFL6,  and  WIND0W1  programs.  When  the  program 
terminates,  control  passes  to  the  ASSIFNTS  program. 


m.   MKAUXFL6 

This  program  is  called  by  the  ASSIGN06  program  and 
builds  the  required  auxiliary  files  -for  the  assignment  proces- 
sing of  the  colonels.  Its  structure  and  function  is  similar 
to  the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
After  its  termination,  control  passes  back  to  the  ASSISN06 
program. 

5.   Programs  Producing  the  Required  Lists  and  Reports 

All  programs  producing  the  required  lists  and  reports, 
have  been  kept  small  and  simple.  Using  the  report  generator 
facility  of  dBASE  III,  you  can  create  report  formats  up  to  80 
columns  wide  in  a  very  simple  way.  You  simply  give  a  -file  name 
to  the  required  report,  and  define  its  format  in  the  way  that 
fits  your  needs.  Defining  the  format  means  providing  dBASE  III 
with  the  title  of  the  report,  the  size  of  the  page,  spacing, 
number  of  characters  per  line,  what  fields  of  the  records  will 
be  printed,  and  what  the  field  headers  will  be.  All  the  rest 
of  the  work  is  done  by  dBASE  III. 

Sample  lists  and  reports  produced  by  the  programs 
described  below,  Are    presnted  in  APPENDIX  A. 

a.   REPORTS 

This  program  controls  the  entire  operation  of  this 
group  of  programs.  It  is  called  by  the  MAINPROG  (main  program) 
program  in  case  the  user  selects  option  3  from  the  main— menu. 
First,  the  program  calls  the  RGMENU  program  which  is  the 
report  generator  sub— menu  described  earlier,  and  pauses 
waiting  for  the  user  to  make  his  choice  which  is  stored  in  the 
variable  'repcode'.   Then  a  CASE  statement  permits  the  program 
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to  branch  to  the  appropriate  program  within  the  same  group  of 
programs  according  to  the  users  choice  or  exit  to  the  main- 
menu.  A  DO  WHILE  loop  keeps  the  program  running  until  the  user 
decides  to  exit  to  main— menu. 


LIST1 


This  program  is  called  by  the  REPORTS  in  case  the 
user  selects  option  1.  -from  the  report  generator  sub-menu,  and 
its  purpose  is  to  produce  a  list  o-F  the  scheduled  assignments 
■for  some  requested  rank.  First,  the  program  calls  the  WINDQW2 
program  which  displays  a  window  on  the  screen  into  which 
program  messages  and  user  data  or  answers  ^re  placed.  A  mes- 
sage prompts  the  user  to  speci-fy  the  rank.  Then,  according  to 
the  rank  the  user  enters,  the  program  builds  the  auxiliary 
-File  AUXFILE1  which  contains  all  necessary  data  -for  the 
requested  list.  This  -file  is  built  by  combining  the  OFFICER, 
REQUESTS, and  SERVES  file  (COPY  and  JOIN  operations).  When  the 
-file  is  ready,  the  message  'PRINTER  OUTPUT?  (Y/N)  '  prompts  the 
user  to  speci-fy  if  he  wants  a  hardcopy  printout.  If  his  answer- 
is  'Y'  (yes),  another  message  is  displayed  requesting  from  the 
user  to  set  the  printer  on  and  to  hit  any  key  to  continue. 
Then  the  program  pauses  waiting  for  the  user's  action.  Final- 
ly, the  command  'REPORT  FORM  MKLIST1'  causes  the  requested 
list  to  be  displayed  on  the  screen,  or  both  displayed  on  the 
screen  and  printed  by  the  printer.  MKLISTl  is  the  format  file 
we  have  defined  in  the  way  we  described  earlier.  After  this, 
the  auxiliary  file  is  deleted  and  control  passes  to  the 
REPORTS  program. 


LIST2 


This  program  is  called  by  the  REPORTS   program   in 
case   the   user   selects   option   2   from  the  report  generator 
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sub— menu,   and   creates   a   list   of  o-f-ficer-s  serving  in   some 
requested  unit. 

The  program's  -function  from  the  user's  side  o-f 
view  is  similar  to  the  LIST1  program  described  above.  The 
difference  is  that  this  time,  the  user  is  prompted  to  specify 
the  unit  name,  and  that  the  format  file  is  called  MKLIST2.  The 
program  calls  the  WIND0W2  program  whose  purpose  has  been 
explained  in  the  previous  program.  After  the  requested  output 
has  been  produced  control  passes  to  the  REPORTS  program. 

d.   LIST3 

This  program  provides  a  list  of  all  Artilery  offi- 
cers in  some  requested  order.  It  is  called  by  the  REPORTS  pro- 
gram in  case  the  user  selects  option  3  from  the  report  gene- 
rator sub— menu. 

First,  the  program  calls  the  WIND0W2  program.  Then 
a  screen  of  information  concerning  the  possible  orders  is  dis- 
played inside  the  window,  and  a  message  prompts  the  user  to 
select  the  order  he  likes  (by  seniority,  alphabetically,  by 
specialty,  etc.).  According  to  the  users  choice,  a  CASE 
statement  allows  the  program  to  select  the  appropriate  index 
file.  We  do  not  use  the 'SORT'  dBASE  III  command  to  sort  a  file 
in  some  order,  because  it  is  time  and  space  consuming. 
Instead,  we  use  existing  index  files  which  Are  always 
presented  in  the  order  of  the  field  on  which  they  Are  indexed. 
In  all  other  aspects  the  program  works  in  the  same  way  as  the 
LIST1  and  LIST2  programs  except  that  the  format  file  is  called 
MKLIST3  this  time. 


LIST4 


This  program  is  called  by  the  REPORTS   program   in 
case   the   user   selects   option  4   from  the  report   generator 
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sub— menu.  The  program  produces  a  list  of  officers  of  some 
requested  rank.  The  process  goes  exactly  in  the  same  way  as 
the  LIST1  program.  The  -Format  -file  is  called  MKLIST4. 


LIST5 


This  program  produces  a  list  o-f  the  Artillery  bat- 
talion commanders,  and  it  is  called  by  the  REPORTS  program 
in  case  the  user  selects  option  5  from  the  report  generator 
sub— menu.  During  its  execution  the  user  is  asked  to  specify 
only  the  device  on  which  he  wants  the  output  (screen  or  print- 
er). The  format  file  is  called  MKLIST5.  In  all  other  aspects 
the  process  goes  exactly  in  the  same  way  as  in  LIST1  program. 


LIST6 


This  program  is  called"  by  the  REPORTS  program  in 
case  the  user  selects  option  6  from  the  report  generator  sub- 
menu. The  program  provides  a  list  of  all  officers  serving  out- 
side the  Branch.  The  report  file  is  called  MKLIST6.  The  user 
is  asked  by  the  program  to  specify  only  the  device  on  which 
he  wants  the  output.  The  program  works  in  the  same  way  as  the 
LIST5  program. 

h.   REPORT 1 

This  program  creates  the  service  time  report  for 
any  requested  officer.  This  report  contains  all  the  major- 
transactions  of  an  officer  occurring  during  his  career .  It  is 
called  by  the  REPORTS  program  in  case  the  user  selects  option 
7  from  the  report  generator  sub— menu.  The  program  searches  the 
HISTORIC  file  and  prints  out  or  displays  on  the  screen  in  an 
appropriate  format  all  records   whose   key   matches  with   that 


81 


typed  by  the  user  when  he  was  asked   by   the   program  to  enter 
the  officer's  serial  number. 

i .   REP0RT2 

This  program  is  called  by  the  REPORTS  program  in 
case  the  user  selects  option  8  from  the  report  generator  sub- 
menu. It  provides  a  status  report  for  any  requested  officer. 
This  report  contains  all  information  on  an  officer's  current 
status.  The  database  files  which  are  searched  are  the  OFFICER 
and   SERVES. 

6.   Mi  seel  1 aneous  Programs 

This  group  includes  all  programs  which  do  not  perform 
any  processing  of  data.  Their  purpose  is  to  provide  formatted 
messages,  and  display  windows  on  the  screen,  required  during 
the  database  processing.  These  programs  are    the  following: 

a.  GRFLAG 

This  program  is  called  by  the  MAINPROG  (main 
program),  and  forms  on  the  screen  the  Hellenic  Flag. 

b.  DELAY 

This  program  is  called  by  most  of  the  programs  du- 
ring the  processing,  and  makes  various  program  messages  stay- 
ing on  the  screen  for  a  certain  time  period. 

c.  DBSTITLE 

This  program  is  called  by  the  MAINPROG  program  and 
displays  on  the  screen  the  database  system  title. 
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d.  MFRAME 

This  program  is  called  by  the  INSERTOR,  MODIFYOR, 
and  DELETEOR  programs,  and  it  displays  a  -frame  on  the  le-ft 
hal-f  o-f  the  screen  into  which  messages  and  -formatted  records 
are    placed. 

e.  FRAME 

This  program  is  called  by  the  INSERTOR  and 
MODIFYOR  programs,  and  displays  a  small  window  into  which  for- 
matted records  -from  the  HISTORIC  -file  are    placed. 

f.  WINDOW 

This  program  is  called  by  the  MKAUXFL1,  MKAUXFL2, 
MKAUXFL3,  MKAUXFL4,  MKAUXFL5,  and  MKAUXFL6,  and  its  purpose  is 
to  display  a  window  on  the  screen,  into  which  messages  in-form- 
ing the  user  about  the  processing,  are    displayed. 

g.  WIND0W1 

This  program  is  called  by  the  ASSIGN01,  ASSIGN02, 
ASSIGN03,  ASSIGN04,  ASSIGN05,  and  ASSIGN06  programs  during  the 
assignment  processing,  and  it  serves  the  same  purpose  as  the 
the  previous  program. 

h.   WIND0W2 

This  program  is  called  by  the  LIST1 ,  LIST2,  LIST3, 
LIST4,  LIST5,  LIST6,  REP0RT1 ,  and  REP0RT2  programs,  and  it 
provides  the  same  -function  as  the  WINDOW  program. 
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i.   WIND0W3 

This  program  is  called  by  the  INSERTOR  program  in 
case  the  user's  answer  to  the  program's  prompt  'DO  YOU  NEED 
CODES'?  (Y/N)  '  is  'Y'«  The  program  provides  a  window  on  the 
right  half  of  the  screen  into  which  all  codes  concerning  rank, 
source,  specialty,  and  marital  status,  required  during  the 
insertion  o-f  new  records  into  the  OFFICER  file,  are  displayed. 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 


This  thesis  develops  a  personnel  database  system  model, 
suitable  -For  implementation  within  the  Artillery  Branch 
Directorate  of  the  Hellenic  Army  General  Sta-F-F.  This  system 
could  also  be  applied  to  any  Branch  Directorate  with  minor 
modifications. 

The  main  goal  is  to  increase  productivity,  e-F-Fecti  veness, 
Accuracy ,  and  speed,  as  -Far  as  personnel  management  is 
concerned,  as  well  as  to  decrease  the  national  expenditure, 
and  release  manpower  -For  other  purposes.  Additionally,  the 
Branch  Director  will  be  able  to  make  faster  and  better  inform- 
ed decisions  concerning  personnel. 

dBASE  III  was  used  as  the  DBMS,  since  it  is  a  relational 
model,  which  is  simple  and  understandable,  increases  independ- 
ency, reduces  redundancy,  and  it  is  very  popular  in  the  micro- 
computer world.  In  addition,  dBASE  III  contains  its  own  pro- 
gramming language,  which  is  a  high  level  structured  language, 
very  efficient  for  data  manipulation. 

I  have  implemented  the  officers'  assignment  processing, 
and  the  most  usually  needed  lists  and  reports,  but  a  wide  va- 
riety of  other  reports,  or  simple  queries  could  also  be 
created.  Emphasis  was  given  to  provide  simple  and  user  friend- 
ly programs,  in  order  to  help  the  users  of  the  system  and  make 
their  job  easier. 

The  software  life  cycle  has  been  taken  into  account  during 
the  program  development.  Since  there  was  no  previous  experi- 
ence on  the  topic  of  assignment  processing,  and  no  concrete 
specifications  about  the  organization  of  the  units  (the  tables 
used  Are  figurative),  I  have  decided  to  follow  the  prototyping 
approach  in  order  to  create  the  programs.  This  means  that  some 
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o-f  the  programs  may  need  -further  improvements.  This  can  be 
done  in  close  cooperation  with  the  Branch,  which  will  be  the 
actual  user  o-f  the  system.  Programs  have  been  kept  small  and 
are  easily  modified  to  meet  -future  improvement  needs.  In  this 
application  I  have  used  the  top-down  design  approach  which 
serves  the  above  goal . 

In  this  implementation  I  have  used  -files  whose  records 
include  a  certain  amount  o-f  data.  Further  improvements  might 
add  more  -fields  in  the  records,  so  that  the  system  can  provide 
expanded  information. 

This  thesis  constitutes  a  good  basis  for  further  improve- 
ments in  the  Area.  of  personnel  management  and  especially  in 
the  field  of  automation  of  the  officers'  assignment  processing 
in  the  Hellenic  Army. 
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APPENDIX  A 


DATABASE  SYSTEM  PROGRAMS 


A.   MAIN  PROGRAM 


■fr*-*-**-*-*-*--*-*-*-*-*-*-**-*-**-    PROGRAM  MAINPROG    **-*-**■*■*-*•-*■•*-*--*■■*■-*■-*■-*■-**•-*•■*-* 

*  This  is  the  main  program,   which  controls  the   operation   of 

*  the  entire  database  system 

CLEAR 

*  Initialize  basic  dBASE  III  -functions 
SET  TALK  OFF 

SET  DELIMITER  OFF 
SET  HEADING  OFF 
SET  EXACT  ON 

*  Declare  global  variables 
PUBLIC  psw 

STORE  '  '  TO  psw 

3  10,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, ' 

3  11 ,18  SAY  'L9  L9' 

3  12,18  SAY  'HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ < ' 

*  Check  user's  authorization 

3  11,30  SAY  'ENTER  PASSWORD  ->' 

SET  CONSOLE  OFF 

ACCEPT  TO  psw 

SET  CONSOLE  ON 
USE  user id 
LOCATE  FOR  password  =  UPPER (psw) 

*  Unauthorized  user.  Exit  to  operating  System 
IF  EOFO 

SET  COLOR  TO  W* 

3  11,28  SAY  '    UNAUTHORIZED  USER 
DO  delay 
SET  COLOR  TO  W 
QUIT 
END  IF 

*  Authorized  user 
STORE  .T.  TO  continue 
DO  gr-Flag 

DO  delay 
DO  dbstitle 
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DO  WHILE  continue 
DO  rnmenu 

*  per-form  appropriate  -function  depending  on  user's  choice 
DO  CASE 

CASE  selection  =  1 

DO  dbupdate 
CASE  selection  =  2 

DO  assi  gnts • 
CASE  selection  =  3 

DO  reports 
CASE  selection  =  4 

STORE  .F.  TO  continue 
CASE  selection  =  5 
QUIT 
ENDCASE 
ENDDO 

SET  TALK  ON 
SET  DELIMITER  ON 
SET  EXACT  OFF 
SET  HEADING  ON 
CLEAR  ALL 
RETURN 
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B.   MAIN-MENU  AND  SUB-MENU  PROGRAMS 


1 .   Main -Menu  program 
***-*•■*•*■■*••*-*-*■-*■-*■-*■-*■-*•-*■■*■■*•*•*•-*■    PROGRAM  MMENU 


*-*■-*■  ■*-*■■*"*  ■*•-*"*  -a-*--*"*"*"*  ******* 


*    This    program    displays    the    system    main-menu    on    the    screen 

CLEAR 

PUBLIC  selection 

STORE  0  TO  selection  ■ 

3   4,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, 

3   5,18  SAY 

a   6,  18  SAY 

SET  COLOR  TO  W* 


.2 


SET  COLOR  TO  W 


3 

a 
a 


a  10 
a  n 
a  12 
a  13 
a  14 
a  15 
a  16 
a  1? 


L9  L9 

HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ< 


35  SAY  'MAIN  MENU' 


18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 


I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 

DATABASE  UPDATE: 1 

ASSIGNMENT  PROCESSING: 2 

REPORT  GENERATOR: 3 

END  OF  DATABASE  SESSION: 4 

EXIT  TO  DOS: 5 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
SET  COLOR  TO  W+ 
a  15,29  SAY  'ENTER  YOUR  SELECTION  ->: '  , 

GET  selection  PICTURE  '9'  RANGE  1,5 

READ 
SET  COLOR  TO  W 
RETURN 
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2.   Sub-Menu  Programs 

PROGRAM  UPDTMENU 


******************* 


********************* 


*    This  ptogram  displays  on  the  screen  the  update  sub— menu 

CLEAR 

PUBLIC  updtcode 

STORE  0  TO  updtcode 

3   4,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, 

3   5, 18  SAY  'L9  L9 

3   6,18  SAY  'HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ< 

SET  COLOR  TO  W* 


3 


SET  COLOR  TO  W 


3 

3 
3 


3  10 
3  11 


3 

a 


12 
13 


3  14 


15 
16 
17 
18 
19 


35  SAY  'UPDATE  MENU' 


18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 

18  SAY 


I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 

INSERT  RECORDS  INTO  OFFICER  FILE: 1 

INSERT  RECORDS  INTO  SCHOOLS  FILE: 2 

INSERT  RECORDS  INTO  HISTORIC  FILE: 3 

MODIFY  RECORDS  FROM  OFFICER  FILE: 4 

MODIFY  RECORDS  FROM  REQUESTS  FILE: 5 

DELETE  RECORDS  FROM  OFFICER  FILE: 6 

EXIT  TO  MAINMENU: 7 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM^ 

SET  COLOR  TO  W+ 

3  17,29  SAY  'ENTER  YOUR  SELECTION  ->: ' , 

GET  updtcode  PICTURE  '9'  RANGE  1,7 
READ 

SET  COLOR  TO  W 

RETURN 
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***■*■**■*■*  -*-*"*"*"X"X"*-*"*-**"* 


PROGRAM  ASPRMENU 


*-*-*-*■-*-*-*-*-*•-*•-*■-*•*-*••*•*-*-*•-*-* 


*  This  program  displays  on  the  screen  the 

*  sing  sub— menu 


assignment   proces— 


CLEAR 

PUBLIC  asprcode 

STORE  0  TO  asprcode 


a  4,  is 

SAY 

a  5,18 

SAY 

a  6,  is 

SAY 

SET  COLOR  TO 

a   5,28 

SAY 

SET  COLOR  TO 

a   7,18 

SAY 

a   8,18 

SAY 

a  9,18 

SAY 

a  10,18 

SAY 

a  n,i8 

SAY 

a  12,18 

SAY 

a  13,18 

SAY 

a  14,18 

SAY 

a  15,18 

SAY 

a  16,18 

SAY 

a  17,18 

SAY 

a  18,18 

SAY 

a  19,18 

SAY 

SET  COLOR  TO 

a  17,29 

SAY 

GET 

READ 

SET  COLOR  TO 

RETURN 

I KMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK , 

L9  L9 

HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ< 

W* 

ASSIGNMENT  PROCESSING  MENU' 

W 

I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 


1st  LIEUTENANT  ASSIGNMENT  PROCESSING: .. 1 
2nd  LIEUTENANT  ASSIGNMENT  PROCESSING: .. 2 

CAPTAIN  ASSIGNMENT  PROCESSING: 3 

MAJOR  ASSIGNMENT  PROCESSING: 4 

LIEUT.  COLONEL  ASSIGNMENT  PROCESS ING: .. 5 

COLONEL  ASSIGNMENT  PROCESSING: 6 

EXIT  TO  MA  I N  MENU : 7 


'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

W+ 
'ENTER  YOUR  SELECTION  ->', 
asprcode  PICTURE  '9'  RANGE  1,7 


W 
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*•*■-* -*■■*•*  ■*■■**• -a--*"*-**"** -*-*"*"* 


PROGRAM  RGMENU 


#■*■■*■■*■■**■#*■*■*■*#**■*■##■*■*■#** 


*■  This  program  displays  on  the   screen   the   report   generator 
*  sub— menu 


CLEAR 

PUBLIC  repcod 
STORE  0  TO  re 
a   3,14  SAY 


a 

a 


SET  COLOR  TO 


a 


14  SAY 
14  SAY 


30  SAY 


SET  COLOR  TO 
a  6,14  SAY  ' 
a  7, 14  SAY  ' 
a  8, 14  SAY  ' 
a  9,14  SAY  ' 
a  10, 14  SAY  ' 
a  11 , 14  SAY  ' 
a  12, 14  SAY  ' 
a  13, 14  SAY  ' 
a  14,14  SAY  ' 
a  15,14  SAY  ' 
a  16,14  SAY  ' 
a  17, 14  SAY  ' 
3  18, 14  SAY  ' 
a  19, 14  SAY  ' 
a  20 , 1 4  SAY  ' 
SET  COLOR  TO 
3  18,27  SAY  ' 
GET  r 
READ 
SET  COLOR  TO 
RETURN 


e 

pcode 

I KMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK  , 

L9  L9 

HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ< 

W* 

REPORT  GENERATOR  MENU' 

W 

I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 


LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

OFFICER 

OFFICER 

EXIT  TO 


OF 
OF 
OF 
OF 
OF 
OF 


SCHEDULED  ASSIGNMENTS: 1 

OFFICERS  OF  A  SPECIFIC  UNIT: 2 

OFFICERS  IN  ANY  DESIRED  ORDER: 3 

OFFICERS  OF  A  SPECIFIC  RANK: 4 

BATTALION  COMMANDERS: 5 

OFFICERS  SERVING  OUTSIDE  THE  BRANCH:. 6 

S  SERVICE  TIME  REPORT: 7 

S  STATUS  REPORT: 8 

MA  I N  MENU : 9 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM: 

W+ 

ENTER  YOUR  SELECTION  ->', 

epcode  PICTURE  '9'  RANGE  1,9 

W 
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C.   PROGRAMS  SUPPORTING  THE  UPDATE  OPERATIONS 

****■*■*■*•*■*■■*■•*-*-•*■*■■*■•*■*■-*•*    PROGRAM  DBUPDATE    ******-*-*•-*--*-*-*•-*•**-*•-*■■*-*■■** 

*  This  program  controls  the  system's  update  operations 

CLEAR 

STORE  '  '  TO  updtcont 
PUBLIC  updtcode 
DO  WHILE  updtcont  #  'n' 
DO  up dt menu 
DO  CASE 

CASE  updtcode  =  1 

DO  insertor 
CASE  updtcode  =  2 

DO  insertsr 
CASE  updtcode  =  3 

DO  inserthr 
CASE  updtcode  =  4 

DO  modi-fyor 
CASE  updtcode  =  5 

DO  modifyrr 
CASE  updtcode  =  6 

DO  deleteor 
CASE  updtcode  =  7 

STORE  'n'  TO  updtcont 
ENDCASE 
ENDDO 
RETURN 
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-*-*•*-*-*-* -a-*"*-*  *••*■■*■•*•*-*■•*"*■•* -*■ 


PROGRAM  INSERTOR 


-*•*-*- -*-•*-*-* -*■*■-**■■*■■*■  ■*■*-*"*  ■*-*■-* 


*  This  program  adds  records  to  OFFICER  file,  updates  all  other 

*  affected  database  -files,   as  well  as  records   log— data   into 

*  USERLOG  file 


CLEAR 
STORE 


TO  insertcont 


*  open  required  for  the  processing  database  files 

SELECT  1 

USE  historic  INDEX  historic 

SELECT  2 

USE  requests  INDEX  requests 

SELECT  3 

USE  officer  INDEX  officer 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

SELECT  6 

USE  serves  INDEX  serves 

STORE  .F.  TO  done 

DO  WHILE  UPPER (insertcont)  =  'Y' 

SELECT  3 

DO  mframe 

5)   3,5  SAY  'INSERT  NEW  RECORD  TO  OFFICER  FILE' 

5)   4,5  SAY  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM' 


*  Initialize  memory  variables 

STORE  '  '                TO 

STORE  '  '  TO 

STORE  '  '    TO 

STORE  '  '                   TO 

STORE  '   '  TO 

STORE  '  TO 

STORE  '  '  TO 

STORE  '  '                    TO 

STORE  '  '               TO 

STORE  '  '               TO 

STORE  '  '                  TO 

STORE  '  '                TO 

STORE  '  '  TO 

STORE  0  TO 

STORE  .F.  TO 

3  20,7  SAY  'ENTER  SERIAL  NUMBER 

READ 


tuni  t 
t order 

tname 

tserno 

trank 

tnomyear 

tspec 

tsource 

ndate 

pdate 

tcity 

tcounty 

tmarst 

tchild 

twwi f e 

->'  GET  tserno 

PICTURE  '99999 
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*  check  whether  record  exists  into  OFFICER  file 
FIND  &tserno 
IF  EOFO 

*  record  does  not  exist 

a  20,7   SAY  ' 

STORE  '  '  TO  answer 

a  12,45  SAY  'DO  YOU  NEED  CODES' 

READ 

IF  UPPER (answer)  =  'Y' 
DO  window-3 

ELSE 

3  12,45  CLEAR 

END  IF 


(Y/N)  ==>'  GET  answer 


* 

read 

user 

s  data  for 

a 

5,5 

SAY 

'name 

a 

6,5 

SAY 

'serial  # 

i) 

—r      e- 

SAY 

'rank 

a 

8,5 

SAY 

'nomi  nat i  on 

a 

9,5 

SAY 

'speci  al ty 

a 

10,5 

SAY 

'source 

a 

11,5 

SAY 

'nomination 

year- 


date 


AAAA' 


a  12,5  SAY  'promotion  date 


a 
a 

a 
a 
a 


13,5 
14,5 

15,5 
16,5 
17,5 


SAY 
SAY 

SAY 
SAY 
SAY 


origin 
or i  gin 


(city) 
(county) 


'marital  status 
'#  of  children 
'working  wife"? 


'  GET  tname 

PICTURE  'AAAAAAAAAAAAAAAAAA' 

'  GET  tserno  PICTURE  '99999' 

'  GET  trank  PICTURE  '99' 

'  GET  tnomyear  PICTURE  '99' 

'  GET  tspec  PICTURE  'A' 

'  GET  tsource  PICTURE 

'  GET  ndate 

PICTURE  '99/99/99' 
'  GET  ndate 

PICTURE  '99/99/99' 
'  GET  tcity  PICTURE 
'  GET  tcounty 

PICTURE  'XXXXXXXX' 
'  GET  tmarst  PICTURE 
'  GET  tchild  PICTURE 
'  GET  twwife 


XXXXXX' 


'A' 
'9' 


READ 


*  append  new  record  to  OFFICER  file 
APPEND  BLANK 

REPLACE  name  WITH  tname,  serno  WITH  tserno 
REPLACE  rank  WITH  trank,  nomyear  WITH  tnomyear 
REPLACE  specialty  WITH  tspec,  source  WITH  tsource 
REPLACE  asnweight  WITH  0  nomdate  WITH  CTOD (ndate) 
REPLACE  promdate  WITH  CTOD(ndate),  origcity  WITH  tcity 
REPLACE  origcounty  WITH  tcounty,  marstat  WITH  tmarst 
REPLACE  children  WITH  tchild,  workwife  WITH  twwife 
STORE  .T.  TO  done 

*  create  an  etry  into  REQUESTS  file 
SELECT  2 

FIND  ?<t  serno 
IF  EOFO 

APPEND  BLANK 

REPLACE  serno  WITH  tserno 
END  IF 
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*  add  record  to  SERVES  -file  i  -f  o-F-Ficer's  source  is  NCOS 
IF  tsource  =  'NCOS' 

SELECT  6 
FIND  &t serno 
IF  EOFO 

STORE  '  '  TO  tun it 

a  20,7  SAY  'ENTER  UNIT  NAME  ->  '  GET  tunit 

READ 

APPEND  BLANK 

REPLACE  serno  WITH  tserno, uni tname  WITH  tunit,, 
enrol  date  WITH  CTOD(ndate) 
END  IF 
END  IF 

*  add  record  to  HISTORIC  -File  (transact,  is  NOMINATION) 
SELECT  1 

STORE  'NOMINATION   '  TO  trans 
SEEK  tserno  +  trans  +  ndate 
IF  EOFO 

STORE  '  '  TO  torder 

a  20,5  SAY  'ENTER  ORDER- >'  GET  torder 

READ 

S)  20,5  SAY  ' 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

transtype  WITH  trans, transdate  WITH  CTOD (ndate) , , 
order id  WITH  torder, unit  WITH  tunit 

3  2,45  CLEAR 

*  display  new  record  o-f  HISTORIC  -File 
DO  -Frame 


GET  serno 

GET  rank 

GET  transtype 

GET  unit 

GET  transdate 

GET  order id 


a  11 ,45  SAY  'serial  #: 

3  12,45  SAY  'rank 

a  13,45  SAY  'tr ansae 

a  14,45  SAY  'unit 

a  15,45  SAY  'date 

a  16,45  SAY  'order 
ELSE 

?  '-***  ERROR:  RECORD  EXISTS  IN  HISTORIC  FILE' 

DISPLAY 

DO  delay 

a  22,0  CLEAR 
END  IF 

*  record  exists  into  OFFICER  -file  and  cannot  be  added  again 
ELSE 

a  20,6  SAY  '  RECORD  ALREADY  EXISTS 

DO  delay 
END  IF 
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3  20,6  SAY  '     MORE  INSERTIONS?  (Y/N)  ->' 

SET  CONSOLE  OFF 

WAIT  TO  msertcont 

SET  CONSOLE  ON 

CLEAR 
ENDDO 

*  record  log-data  into  the  USERLOG  -file 
IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 

APPEND  BLANK 

REPLACE  user-name  WITH  D->username,  task  WITH  'INSERTION' 
progname  WITH  ' INSERTOR ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
END  IF 

CLOSE  DATABASES 
RETURN 
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******************* 


PROGRAM  INSERTSR 


********************* 


This  program  adds 


new  records  to  SCHOOLS  file, 
the  USERL06  -file 


and   updates 


CLEAR 

*  open  required  -for  the  processing  -files 

SELECT  1 

USE  user id 

SELECT  2 

USE  user log 

SELECT  3 

USE  o-f-fi cer  INDEX  o-f-ficer 

SELECT  4 

USE  schools 


*  disp 
a   4 

a 

a 
a 
a 
a 


3  10 
3  11 


a  12 

3  13 

a  14 
a  is 
a  16 
a  l? 

STORE 
STORE 
DO  WHI 

a 


lay  a  window  on  the  screen 

0  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 
SAY 

MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


SAY 
SAY 
SAY 
0  SAY 
0  SAY 
0  SAY 
SAY 
0  SAY 
0  SAY 
0  SAY 
SAY 


20 


20 


0  SAY  'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 

'y'  TO  insertcont 

.  F.  TO  done 

LE  UPPER (insertcont)  =  'Y' 

5,24  SAY  'INSERT  NEW  RECORD  TO  SCHOOLS  FILE' 


*  initialize  memory  variables 

STORE  ' 

STORE  ' 

STORE  ' 

STORE  ' 

STORE  ' 

STORE  0 

STORE  ' 

a  16,26  SAY  'ENTER  SERIAL 


TO  tserno 
TO  tschname 
TO  tdegree 
TO  tobject 
TO  tcountry 
TO  tduration 
TO  tgdate 
NUMBER  ->'  GET  tserno 

PICTURE  '99999' 


READ 
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*  check  if  record  exists  in  OFFICER  file 
SELECT  3 
FIND  ?<tserno 
IF  .NOT.  EOFO 

*  record  exists  in  OFFICER  file 

*  check  i-F  the  record  to  be  added  exists  in  SCHOOLS 
a  16,26  SAY  '  ENTER  SCHOOL  NAME   ->'  GET  tschname 
READ 


-file 


SELECT  4 

L0CA1 

"E  FOR 

serno  =  tserno  .AND.  school  name  =  tschname 

IF  EOFO 

* 

record  does  not  exist  in  SCHOOLS  fi 

le 

* 

read  user's  data  -From  the  keyboard 

a 

16,26 

SAY  ' 

/ 

a 

7,23 

SAY  'serial  #          : 

:  '  GET 

tserno 

a 

8,23 

SAY  'school -name       : 

:  '  GET 

tschname 

3 

9,23 

SAY  'degree            : 

:  '  GET 

tdegree 

a 

10,23 

SAY  'object  o-f  studies. 

:  '  GET 

tob ject 

a 

11,23 

SAY  'country            ! 

:  '  GET 

tcountry 

a 

12,23 

SAY  'duration           : 

:  '  GET 

tduration 

PICTURE  '99' 

a 

13,23 

SAY  'graduation  date   : '  GET 

tgdate 

PICTURE  '99/99/99' 

READ 

*  append  new  record  to  SCHOOLS  file 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  school  name  WITH  tschname, 
degree  WITH  tdegree,  abject  WITH  tob ject,, 
country  WITH  tcountry,  duration  WITH  tduration,, 
graddate  WITH  CTOD (tgdate) 

STORE  .T.  TO  done 

*  record  exist  in  SCHOOLS  file 
ELSE 

3  16,26  SAY  'RECORD  ALREADY  EXISTS 

DO  delay 
END  IF 

*  record  does  not  exist  in  OFFICER  file,  and  we  cannot 

*  add  new  recor  to  SCHOOLS  file 
ELSE 

a  16,21  SAY  'RECORD  DOES  NOT  EXIST  IN  OFFICER  FILE' 

DO  delay 

a  16,21  SAY  ' 
END  IF 

3  16,26  SAY  'MORE  INSERTIONS?  (Y/N)  ->' 
SET  CONSOLE  OFF 
WAIT  TO  insertcont 
SET  CONSOLE  ON 
ENDDO 
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*  update  USERLOG  file 
IF  done 

SELECT  1 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  2 

APPEND  BLANK 

REPLACE  username  WITH  B->username,  task  WITH  'INSERTION' 
progname  WITH  ' INSERTSR ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
END  IF 

CLOSE  DATABASES 
RETURN 
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*  ■*"*"*"*  ■*■■*"*■■*■*■•*"*■ -a--*-*"*-*-*"* 


PROGRAM  INSERTHR 


*"X"*  ■*"*•■*"*  •**"*■*  #■#■*■#■*■#■*■*■*■# 


*  This  program  adds  new  records  to  HISTORIC  file, 

*  USERL06  -file 


and  updates 


CLEAR 

*  open  required  -For  the  processing  files 

SELECT  1 

USE  serves  INDEX  serves 

SELECT  2 

USE  historic  INDEX  historic 

SELECT  3 

USE  officer  INDEX  officer 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

STORE  'y'  TO  insertcont 

3  2,17  SAY  'THE  ONLY  LEGAL  TRANSACTIONS  FOR  WHICH  A  RECORD' 


W+ 


a  3,17  SAY  ' 
SET  COLOR  TO 
3  4, 17  SAY  ' 
3  5,17  SAY  ' 
SET  COLOR  TO 
STORE  .F.  TO 
SELECT  2 

DO  WHILE  UPPER (insertcont) 
*  display  window  on  the 


CAN  BE  ADDED  FROM  THIS  PROGRAM  ARE: 


RETIREMENT' 
DEATH' 


W 
done 


a  7,18 

SAY 

a  8,18 

SAY 

a  9,  is 

SAY 

a  io,i8 

SAY 

a  n,i8 

SAY 

a  12,18 

SAY 

a  13,18 

SAY 

a  14,18 

SAY 

a  15,18 

SAY 

a  16,18 

SAY 

a  17,18 

SAY 

a  18,18 

SAY 

*  initialize 

STORE  .F.  TO 

STORE  ' 

STORE  ' 

/ 

STORE  ' 

STORE  ' 

STORE  ' 

a  17,20 

SAY 

=  'y 
screen 

' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 
INSERT  RECORDS  INTO  HISTORIC  FILE 
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM- 

memory  varibles 
dupl icate 
'  TO  tserno 
TO  trank 

'  TO  trans 
TO  tdate 

'  TO  torder 
'ENTER  SERIAL  NUMBER  ->'  GET  tserno 

PICTURE  '99999' 


READ 
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*  check  if  record  exists  in  OFFICER  -file 
SELECT  3 
FIND  ktserno 
IF  .NOT.  EOFO 

*  record  exists  in  OFFICER  -File 
SELECT  1 

FIND  ?<tserno 

SELECT  2 

3  17,20  SAY  '   ENTER  TRANSACTION  ->'     GET  trans 

READ 

*  check  whether  transaction  is  legal  or  not 
IF  trans  =  'RETIREMENT   '  .OR.  trans  =  'DEATH 

*  legal  transaction 

a  17,20  SAY  ' 

a  17,20  SAY  '   ENTER  DATE         ->'  BET  tdate 

PICTURE  '99/99/99' 

READ 

a  17,20  SAY  ' 

*  check  -for-  duplicate  record  in  HISTORIC  -file 
SEEK  tserno  +  trans  +  tdate 

IF  EOFO 

*  no  duplicate  record 

*  red  user's  data  -from  keyboard 

a  11,20  SAY  'rank         :'  GET  trank  PICTURE  '99' 
a  12,20  SAY  'transaction  :'  GET  trans 

P I CTURE  ' AA AA AA A A A A AA ' 
a  14,20  SAY  'date         : '  GET  tdate 

PICTURE  '99/99/99' 
a  15,20  SAY  'order        : '  GET  torder 
READ 

*  append  new  record  to  HISTORIC  -file 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

transtype  WITH  trans,  unit  WITH  A->uni tname , , 
transdate  WITH  CTOD (tdate) , order i d  WITH  torder 

a  10,20  SAY  'serial  #     : '  GET  serno 

a  13,20  SAY  'unit         : '  GET  unit 

STORE  .T.  TO  done 

*  record  to  be  added  already  exists 
ELSE 

a  17,20  SAY  '***  ERROR:  DUPLICATE  RECORD 
DO  delay 
END  IF 

*  illegal  transaction 
ELSE 

a  17,20  SAY  'ILLEGAL  TRANSACTION 
DO  delay 
END  IF 
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*  o-f-fi  cer-  does  not  exist  in  OFFICER  -File 
ELSE 

3  17,20  SAY  'RECORD  DOES  NOT  EXIST  IN  OFFICER  FILE' 

DO  delay 

3  17,20  SAY  ' 
END  IF 

a  17,20  SAY  'MORE  INSERTIONS?  (Y/N) ' 
SET  CONSOLE  OFF 
WAIT  TO  insertcont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  update  USERLOG  -File 

IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 
SELECT  5 
APPEND  BLANK- 
REPLACE  username  WITH  D->user-name,  task  WITH  'INSERTION',, 
progname  WITH  'INSERTHR',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 

RETURN 
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♦♦■a--*-**-**-*-**-*-*-***-***    PROGRAM  MODIFYOR    ******■*•■*■•*•-*•  ■*■**■*■*  ■*■■*■*•*•**■ 

*  This  program  modifies  records  in  the  OFFICER  file,   adds  new 

*  records  to  HISTORIC  file  in  case  of  promotion,   and   updates 

*  USERL06  file 

CLEAR 

*  open  required  -far    the  processing  files 
SELECT  1 

USE  serves  INDEX  serves 

SELECT  2 

USE  historic  INDEX  historic 

SELECT  3 

USE  officer  index  officer 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

STORE  .F.  TO  done 

STORE  'y'  TO  modi  con t 

DO  WHILE  UPPER (modi cont)  =  'Y' 

SELECT  3 

DO  mframe 

3   3,6  SAY  '   MODIFY  RECORD  IN  OFFICER  FILE' 

a   4,6  SAY  '   MMMMMMMMMMMMMMMMMMMMMMMMMMMMM ' 

STORE  '       '  TO  tserno 

3  20,7  SAY  'ENTER  SERIAL  NUMBER  ->'  GET  tserno 

READ 

*  check  if  record  to  be  modified  exists  in  OFFICER  file 
FIND  ?<tserno 
IF  .NOT.  EOFO 

*  record  exists  in  OFFICER  file 

*  initialize  memory  variables 
STORE  0  TO  attrib 

STORE  '  '  TO  trans 

STORE  '  '  TO  tun it 

STORE  '  '  TO  tor-der 

STORE  name  TO  tname 

STORE  rank  TO  trank 

STORE  promdate  TO  tdate 

STORE  marstat  TO  tmarst 

STORE  children  TO  child 

STORE  workwife  TO  twwife 

*  display  which  attributes  can  be  modified 
SAY  ' 
SAY  '       MODIFIABLE  ATTRIBUTES' 

SAY  '       ' 

SAY  'name  1' 

SAY  'rank  and  promotion  date     2' 
SAY  'marital  and  family  status   3' 
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a 

20,7 

a 

5,8 

a 

6,8 

a 

7,8 

a 

8,8 

a 

9,8 

*  read  user '  s  selection  from  keyboard 

a  20,7  SAY  '    ENTER  YOUR  SELECTION  ->'  GET  attrib, 

PICTURE  '9'  RANGE  1,3 
READ 

*  clear  displayed  attributes 
a   5,8  SAY  ' 

a   6,8  SAY  ' 

3   7,8  SAY  ' 

a   8,8  SAY  ' 

a   9,8  SAY  ' 

a  20,7  SAY  ' 

DO  CASE 

CASE  attrib  =  1 

*  replace  old  name  with  the  new  one 

a   5,5  SAY  'name  : '  GET  tname 

READ 

REPLACE  name  WITH  tname 
CASE  attrib  =  2 

*  replace  old  rank  and  promotin  date 

a   7,5  SAY  'rank  : '  GET  trank, 

PICTURE  '99' 

a  12,5  SAY  'promotion  date  : '  GET  tdate, 

PICTURE  '99/99/99' 

READ 

IF  rank  #  trank 

STORE  .T.  TO  addhist 

END  IF 

REPLACE  rank  WITH  trank,  promdate  WITH  tdate 
CASE  attrib  =  3 

*  replace  family  data  with  the  new  ones 
a  16,5  SAY  'marital  status  :'  GET  tmarst 
a  17,5  SAY  '#  of  children   :'  GET  child 

PICTURE  '9' 
a  18,5  SAY  'working  wwife   :'  GET  twwife 
READ 

REPLACE  marstat  WITH  tmarst , chi 1 dren  WITH  child, 
workwife  WITH  twwife 
ENDCASE 
STORE  .T.  TO  done 

*  add  new  record  to  HISTORIC  file  in  case  of  promotion 
IF  attrib  =  2 

STORE  'PROMOTION   '  TO  trans 

SELECT  1 

FIND    ?>.tserno 

STORE  uni tname  TO  tun it 
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*  check  -for  duplicate  transaction 
SELECT  2 

SEEK  tserno  +  trans  +  DTOC(tdate) 
IF  EOFO 

*  no  duplicate  transaction 

STORE  ' 

3  20,5  SAY  'ENTER  ORDER- >' 

READ 

3  20,5  SAY  ' 

APPEND  BLANK 

REPLACE  serno  WITH  tserno, 


'  TO  torder 
GET  torder 


rank  WITH  trank, 
transtype  WITH  trans,  unit  WITH  tunit, 
transdate  WITH  tdate,  orderid  WITH  torder 


*  display  new  record  added  to  HISTORIC  -file 
DO  -frame 


a 

11,45 

SAY 

'serial  #: 

,  / 

GET 

serno 

a 

12,45 

SAY 

'rank     : 

/ 

GET 

rank 

a 

13,45 

SAY 

'transact: 

,  / 

GET 

transtype 

a 

14,45 

SAY 

'unit     : 

,  / 

GET 

uni  t 

a 

15,45 

SAY 

'date     : 

,  i 

GET 

transdate 

a 

16,45 

SAY 

'order    : 

,  / 

GET 

orderid 

*  duplicate  transaction 
ELSE 

a  20,7  SAY  '***  ERROR:  TRANSACTION  EXISTS' 

DO  deleay 
END  IF 
END  IF 


*  displ 
SELECT 
3,6 
5,5 
6 


a 
a 
a 
a 
a 
a 


a 
a 
a 

a 
a 


7,5 
8,5 


9,1 

a  l  o ,  b 

a 

a 


li 


»-» 


12,5 


a  13 


14,5 
15,5 
16,5 

17,5 
18,5 


ay  n 

3 
SAY 

lodified  OFFICER 

-f 

Lie  record 

UPDATED 

RECORD 

SAY 

'name             : 

/ 

GET 

name 

SAY 

'serial  #        : 

/ 

GET 

serno 

SAY 

'rank             : 

/ 

GET 

rank 

SAY 

'nomination  year: 

,  / 

GET 

nomyear 

SAY 

'specialty       : 

/ 

GET 

special ty 

SAY 

'source          : 

/ 

GET 

source 

SAY 

'nomination  date: 

/ 

GET 

nomdate 

SAY 

'promotion  date  : 

' 

GET 

promdate 

SAY 

'assign,  weight  : 

/ 

GET 

asnwei  ght 

SAY 

'origin  (city)   : 

' 

GET 

origci ty 

SAY 

'origin  (county). 

,     t 

GET 

ori  gcounty 

SAY 

'marital  status 

,  / 

GET 

marstat 

SAY 

'#  o-f  children 

,  / 

GET 

chi ldren 

SAY 

'working  wife"? 

,  / 

GET 

wor  kwi  -f  e 
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*  record  to  be  modi-fyed  does  not  exist  in  OFFICER  -file 
ELSE 

a  20,5  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 
END  IF 

5)  20,5  SAY  ' 

a  20,7  SAY  'MORE  MODIFICATIONS?  (Y/N)  ->' 
SET  CONSOLE  OFF 
WAIT  TO  modicont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  update  USERLOG  -file 
IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 
SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username, , 
task  WITH  'MODIFICATION',, 

progname  WITH  'MODIFYOR',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
END  IF 

CLOSE  DATABASES 
RETURN 


10" 


*-*■■*--* -a- •*■-*■•*■■*■*■■*"«"*"*"*"*■*"*■  ■* 


PROGRAM  MODIFYRR 


♦*******■»#***♦******•» 


*  This  program  modi-fyes  records  in  REQUESTS  -file, 

*  USERLOD  -File 


and  updates 


CLEAR 

*  open  required  -for  the  processing  -files 
SELECT  1 

USE  requests  INDEX  requests 
SELECT  2 
USE  user id 
SELECT  3 
USE  user 1 og 
STORE  .F.  TO  done 
STORE  'y'  TO  modi  con t 
SELECT  1 

DO  WHILE  UPPER (modi cont)  =  'Y' 
STORE  '       '  TO  tserno 


* 

display  w 

a 

4,22 

SAY 

a 

5,22 

SAY 

a 

6,22 

SAY 

a 

7,22 

SAY 

a 

8,22 

SAY 

a 

9,22 

SAY 

a 

10,22 

SAY 

a 

11,22 

SAY 

a 

•1  ^   T^ 

SAY 

a 

1 3 ,  22 

SAY 

a 

14,22 

SAY 

a 

15,22 

SAY 

a 

5,26 

SAY 

a 

14,26 

SAY 

indow  on  the  screen 
' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 


MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
'MODIFY  RECORD  IN  REQUESTS  FILE' 
'ENTER  SERIAL  NUMBER  ->'  SET  tserno 

PICTURE  '99999 


READ 


*  check  i-f  record  to  be  modified  exists  in  REQUESTS  -file 
FIND  ktserno 
IF  .NOT.  EOFO 

*  record  exists  in  REQUESTS  -file 

*  initialize  memory  variables 
STORE  submdate  TO  tdate 
STORE  unitl     TO  tunitl 
STORE  unit2     TO  tunit2 
STORE  unit3     TO  tunit3 
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*  read  user's  data  -from  keyboard 

a   7,26  SAY  'serial  #  : '  GET  tserno 

a   8,26  SAY  'submit ion  date      : '  GET  tdate 

PICTURE  '99/99/99' 
3   9,26  SAY  '1st  requested  unit  :'  GET  tunitl 

PICTURE  'XXXXXXXX' 
a  10,26  SAY  '2nd  requested  unit  :'  GET  tunit2 

PICTURE  'XXXXXXXX' 
a  11,26  SAY  '3rd  requested  unit  :'  GET  tunit3 

PICTURE  'XXXXXXXX' 
READ 

*  replace  changed  -fields 

REPLACE  submdate  WITH  tdate,  unitl  WITH  tunitl,, 

unit2  WITH  tunit2,  unit3  WITH  tunit3 
STORE  .T.  TO  done 

*  record  to  be  modi-fied  does  not  exist  in  REQUESTS  -file 
ELSE 

a  14,24  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 
END  IF 

a  14,24  SAY  ' 

a  14,26  SAY  'MORE  MODIFICATIONS?  (Y/N)  ->' 
SET  CONSOLE  OFF 
WAIT  TO  modicont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  update  USERLOG  -file 
IF  done 

SELECT  2 

LOCATE  FOR  password  =  UPPER (psw) 
SELECT  3 
APPEND  BLANK 

REPLACE  user-name  WITH  B->username ,  , 
task  WITH  'MODIFICATION',, 

progname  WITH  'MODIFYRR ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
END  IF 

CLOSE  DATABASES 
RETURN 
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*********  ***  ******* 


PROGRAM  DELETEOR 


********************* 


*  This  program  deletes  recods  -from  OFFICER  -file,   and  -from  all 

*  other  database  files  whose  -field  'serno'   matches   with   the 

*  key  o-f  the  deleted  -from  OFFICERS  -file  record.  It  also  updates 

*  USERLOG  file 

CLEAR 

*  open  required  for  the  processing  files 
SELECT  1 

USE  serves  INDEX  serves 

SELECT  2 

USE  requests  INDEX  requests 

SELECT  3 

USE  schools 

SELECT  4 

USE  historic  INDEX  historic 

SELECT  5 

USE  officer  INDEX  officer 

STORE  'y'  TO  deletecont 

STORE  0  TO  cntl,  cnt2,  cnt3,  cnt5 

STORE  .F.  TO  done 

DO  WHILE  UPPER (deletecont)  =  'Y' 

DO  mframe 

a   3,7  SAY  'DELETE  RECORD  FROM  OFFICER  FILE' 

3   4,7  SAY  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM' 

STORE  '       '  TO  tserno 

5)  20,7  SAY  '  ENTER  SERIAL  NUMBER  ->'  GET  tserno 

PICTURE  '99999' 


*  check  if  r&a 

READ 

FIND 

2<tserno 

IF  .NOT.  EOFO 

* 

record  e:< 

* 

di  spl 

ay  r 

a 

20,7 

SAY 

a 

5,5 

SAY 

a 

6,5 

SAY 

a 

— ?   C" 

SAY 

a 

8,5 

SAY 

a 

9,5 

SAY 

a 

10,5 

SAY 

a 

11  ,5 

SAY 

a 

1^,^» 

SAY 

a 

13,5 

SAY 

a 

14,5 

SAY 

a 

15,5 

SAY 

ord  to  be  deleted  exists  in  OFFICER  file 


ists  in  OFFICER  f 
ecord  to  be  delet 

'name 
'serial  # 
'rank 

'nomination  year 
'special ty 
' source 

'nomination  date 
'promotion  date 
'origin  (city) 
'origin  (county) 
'marital  status 


ile 
ed 


GET  name 
GET  serno 
GET  rank 
GET  nomyear 
GET  specialty 
GET  source 
GET  nomdate 
GET  promdate 
GET  origcity 
GET  origcounty 
GET  marstat 
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*  be  sure  that  user  wants  the  record  to  be  deleted 
a  20,7  say  '  DELETE^  (Y/N)  ->' 

SET  CONSOLE  OFF 
WAIT  TO  con-firm 
SET  CONSOLE  ON 

*  delete  record  from  OFFICER  -File 
IF  UPPER  (con-Firm)  =  'Y' 

DELETE 

STORE  .T.  TO  done 

STORE  cnt5  +  1  TO  cnt5 

*  delete  record  -From  SERVES  -File 
SELECT  1 

FIND  Sctserno 
IF  .NOT.  EOFO 

DELETE 

STORE  cntl  +  1  TO  cntl 
ENDIF 

*  delete  record  from  REQUESTS  -File 
SELECT  2 

FIND  &t serno 
IF  .NOT.  EOFO 

DELETE 

STORE  cnt2  +  1  TO  cnt2 
ENDIF 

*  delete  records  -from  SCHOOLS  file 
SELECT  3 

LOCATE  FOR  serno  =  tserno 
IF  -NOT.  EOFO 

DELETE  ALL  FOR  serno  =  tserno 

STORE  cnt3  +  1  TO  cnt3 
ENDIF 

*  delete  records  from  HISTORIC  file 
SELECT  4 

DELETE  ALL  FOR  serno  =  tserno 
ENDIF 

*  record  to  be  deleted  does  not  exist  in  OFFICER  file 
ELSE 

3  20,6  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 

5)  20,6  SAY  ' 
ENDIF 
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3  20,7  SAY  '     MORE  DELETIONS?  (Y/N)  ->' 
SET  CONSOLE  OFF 
WAIT  TO  deletecont 
SET  CONSOLE  ON 
CLEAR 
SELECT  5 
ENDDO 

*  pack  database  -Files  which  records  have  been  deleted  from 
IF  cnt5  #  0 

3  10,18  SAY  'DATABASE  FILES  ARE  BEING  PACKED  AND  REINDEXED' 

3  11,18  SAY  '       BE  PATIENT,  IT  WILL  TAKE  SOME  TIME' 

PACK 

SELECT  1 

IF  cntl  #  0 

PACK 
END  IF 
SELECT  2 
IF  cnt2  #  0 

PACK 
ENDIF 
SELECT  3 
IF  cnt3  #  0 

PACK 
ENDIF 
SELECT  4 
PACK 
ENDIF 
CLOSE  DATABASES 

*  update  USERLOG  -file 
IF  done 

SELECT  1 

USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  2 

USE  user log 

APPEND  BLANK 

REPLACE  username  WITH  A->username,  task  WITH  'DELETION',, 
progname  WITH  'DELETEOR',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIME () 
ENDIF 

CLOSE  DATABASES 
RETURN 
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D.   PROGRAMS  PERFORMING  THE  ASSIGNMENT  PROCESSING 

*•**•***-*■*■•*•■*■*-*■*■■*••*■*■*■*■■*   PROGRAM  ASSIGNTS    #*******■*■**-*■■*-*-*■•*■■*-*•*■•*■■*-* 

*  This  program  controls  the  assignment  processing  operations 

CLEAR 

PUBLIC  asprcode 

DO  asprmenu 

DO  WHILE  asprcode  #  7 

DO  CASE 

CASE  asprcode  =  1 

DO  assignOl 
CASE  asprcode  =  2 

DO  assign02 
CASE  asprcode  =  3 

DO  assign03 
CASE  asprcode  =  4 

DO  assign04 
CASE  asprcode  =  5 

DO  assign05 
CASE  asprcode  =  6 

DO  assign06 
ENDCASE 

DO  asprmenu 
ENDDO 

RETURN 
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*******************    PROGRAM  ASSIGNOl    ********************* 

*  This  program  performs  the  assignments  o-f  the  1st  lieutenants 

*  and  updates  the  USERLDG  -file 

*  build  required  temporary  -files 
DO  mkauxfl2 

*  display  a  window  in  the  screen 
DO  windowl 

*  assign  1st  lieutenants  to  units  in  which  they   can   serve  by 

*  combining  requests  and  assignment  weights 
3  5,23  SAY  'ASSIGNMENTS  FOR   THE  1st  LIEUTENANTS' 

3  6,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  -for  the  processing  -files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  -file5 

SELECT  3 

USE  file6 

SELECT  4 

USE  -file? 

STORE  .T.  TO  ok 

a  8,23  SAY  ' 

a  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  o-f-ficer  under  assignment  and  determine  the  unit   to 

*  assigned  to  or  de-fere  it  -for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memory  variables 

STORE  . F.  TO  granted 

STORE  .T.  TO  pr-e-ference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit ,tul ,tu2,tu3 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 
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*  determine  which  of  the  requested  units  will   be   examined 

*  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu-3  TO  tu 
END  IF 
END  IF 

*  check  i-f  requested  by  the  o-f-fi  cer  unit   is   available, 

*  i.e.,   examine   i-f   there   exists   an    p-ficer    under 

*  assignment  whose  present  unit  is  the  requested  unit 
SELECT  3 

LOCATE  FOR  speci al ty=tspec  .AND.  source=tsource  .AND., 

unitname=tu  .AND.  serno#tserno  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED <) 

IF  .NOT.  EOFO 

*  someone  else  -From  the  requested  unit  is  to  be  moved 

*  check  i-f  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED () 

IF  specialty  =  tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 
IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 

STORE  .T.  TO  done 
END  IF 
ENDIF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the   same   unit,   requested 

*  unit  is  granted,  record  is  marked  -for  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 
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CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  pre-ference  to 

DO  WHILE  ((.NOT.  EOF  ( )  )  .AND.  (pre-ference)) 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  speci al ty=tspec , 
.AND.  source  =  tsource 
IF  uni tl=tu.OR. unit2=tu.0R. uni t3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  pre-ference 
ELSE 

IF  asnweight  =  weight 

IF  mar st  =  'S'  .AND. , 
marstat  #  'S' 
STORE  .F.  TO  pre-ference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 
IF  pre-ference 

*  officer  requested  this  unit  has  the  pre-feren- 

*  ce,   unit  is  granted,   record  is   marked   for 

*  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
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SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -For  the  next  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT' 4 
SK I P 
ENDDO 

*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

3  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

SELECT  1 

*  build  temporary  -file  containing  unresolved  assignments 
COPY  TO  file8  FOR  unitname  =  ' * '  .AND.  rank  =  '02' 
SELECT  5 

USE  file8 

STORE  .F.  TO  deletion 

*  get  one  record  at  a  time  and  try  to  sati-fy  the  request 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memory  variables 
STORE  '     '  TO  tsource 
STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tun it 
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SELECT  2 

*  -Find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tserno 

STORE  unitl  TO  .till 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu-3 
STORE  .F.  TO  -found 
STORE  .T.  TO  requested 

GO  TOP 

*  find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -Found 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 
.AND.  source  =  t source 
STORE  serno  TO  idno 
*  unit  available 
DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tunit 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -Found 
STORE  - un i t name  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  -Found  available  unit  is  not  requested 

STORE  .F.  TO  requested 
ENDCASE 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  found 

*  unit   available   is   one   of  the  requested  units,  mark 

*  record    for    deletion,    so   that   it   will   not   be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  -For  deletion 

LOCATE  FOR  serno  =  idno 

STORE  unitname  TO  tunit 

STORE  3  TO  tweight 

STORE  -T.  TO  resolved 

DELETE 
ELSE 

Si    22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED'GET  tserno 
END  IF 
END  IF 
SELECT  1 
FIND  &tserno 

IF  resolved 

*  update  record  in  assigned  -file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  No  available  unit  -found,   delete   created   in  assigned 

*  -file  record.  O-f-ficer  will  remain  in  the  same  unit 
DELETE 

STORE  -T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 
END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  update  USERLOG  -file 

SELECT  6 

USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 

USE  user log 

APPEND  BLANK 

REPLACE  username  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 

progname  WITH  ' ASSIGNOl ' , 1 ogdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
DELETE  FILE  -file6.db-f 
DELETE  FILE  -fileT.db-f 
DELETE  FILE  -fileB.db-f 
RETURN 
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***•*■*•-*•-*-*-*-*■*■■*•■*■*■-*■*■•*■•*••*    PROGRAM  MKAUXFL2    *  ******■*-*-*  ■*-*-«•-*■-*-*-* -*-*-*-*- 

*  This  program  creates  the  temporary  files    required   -for  the 

*  -for  the  assignment  processing  o-f  the  1st  lieutenants 

DO  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  o-F-fi  cer 
SELECT  3 
USE  requests 
SELECT  2 

a  10,30  SAY  'FILE3 ' 

COPY  TO  -File3  FOR  rank  =  '02' 
a  10,45  SAY  'READY' 
SELECT  1 

a  11,30  SAY  'FILE4 ' 

COPY  TO  -File4  FOR  enrol  date  <=  CT0D ( '07/31 /86  '  )  -  1065 

3  11 ,45  SAY  'READY' 

SELECT  5 

USE  file4 

SELECT  6 

USE  -file3 

a  1 2 ,  30  SAY  '  F I LE5 ' 

JOIN  WITH  E  TO  -fileS  FOR  serno  =  E->serno  , 

FIELDS  serno, rank , source, spec i al ty ,asnwei  ght , mars tat , , 

children,  unitname,  enrol  date 
a  12,45  SAY  'READY' 
SELECT  3 
USE  requests 
SELECT  7 
USE  -fileS 

a  13,30  SAY  'FILE6 ' 

JOIN  WITH  C  TO  file6  FOR  serno  =  C->serno  , 

FIELDS  serno , rank , source , speci  al ty , asnwei  ght , marstat , , 

chi  ldr-en  ,  uni  t  name,  enrol  date,  uni  1 1  ,  uni  t2,uni  t3,submdate 
3  13,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
USE  -file6 
COPY  TO  -fileS 

a  14,30  SAY  'FILE7 ' 

COPY  TO  -fileT 

a  14,45  SAY  'READY' 

CLOSE  DATABASES 

DELETE  FILE  -file3.db-f 

DELETE    FILE    -file4.dbf 

RETURN 
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-*-*•*-*■*■*■  ■*-*■■*■-*■■*■*■■*■■*■-*■  ■*•*■**    PROGRAM  ASSIGN02    ***■*■*■■*  •*■■*■*■■*■■*■■*■*■■**■■*■*■  *■*■*-* 

*  This  program  per-Forms  the  assignments  o-F  the  2d  lieutenants, 

*  and  updates  USERLOG  -File 

*  build  required  temporary  -Files 
DO  mkaux-Fl  1 

*  open  required  -For  the  processing  -Files 
SELECT  1 

USE  assigned  INDEX  assigned 
SELECT  2 
USE  o-Fficer 

*  display  window  on  the  screen 
DO  windowl 

*  Assign  o-F-Ficers  recently  graduated  -From  MA. 

*  All  o-F  them  Are    assigned  to  the  AS  -For  training 

3  5,20  SAY  'ASSIGNMENTS  FOR  THE  NEW  2d  LIEUTENANTS' 
a  6,20  SAY  'WHO  HAVE  RECENTLY  GRADUATED  FROM  THE  MA' 
3  7,20  SAY  '  ARE  BEING  PROCESSED' 

SELECT  2 

LOCATE  FOR  rank  =  '01'  .AND.  source  =  'MA', 

.AND.  YEAR(nomdate)  =  YEAR(DATEO) 
DO  WHILE  .NOT.  EOF ( ) 
SELECT  1 
APPEND  BLANK 
REPLACE  serno  WITH  B->serno,  rank  WITH  B->rank, 

source  WITH  B->source,  specialty  WITH  B— >specialty 
REPLACE  unitname  WITH  'AS',  asgndate  WITH  CTOD (' 09/01 /86 ') , 

asnweight  WITH  0 
SELECT  2 
CONTINUE 
ENDDO 
CLOSE  DATABASES 

*  clear  messages  inside  the  window 
a  5,20  SAY  ' 

a  6,20  SAY  ' 
3  7,20  SAY  ' 

*  assign  2nd  lieutenants  completing  their 

*  training  in  the  Artillery  School  to  ARTC 

a  5,23  SAY  'ASSIGNMENTS  FOR  THE  2d  LIEUTENANTS' 
a  6,23  SAY  '        GRADUATING  FROM  THE  AS' 
a  7,23  SAY  '         ARE  BEING  PROCESSED' 
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duty  =  'TRAINEE' 


*  open  required  -for  the  processing  -files 

SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  6 

USE  serves  INDEX  serves 

LOCATE  FOR  unit name  =  'AS'  .AND, 

DO  WHILE  .NOT.  EOF ( ) 

SELECT  1 

APPEND  BLANK 

REPLACE  ser-no  WITH  F->serno,  unit  name  WITH 
rank  WITH  '01',  asgndate  WITH  CTOD ( 

REPLACE  source  WITH  'MA',  specialty  WITH  'C 
asnweight  WITH  0 

SELECT  6 

CONTINUE 
ENDDO 


ARTC  , 
08/01 /S6' ) 


3  5,20  SAY  ' 
5)  6,20  SAY  ' 
a  7,20  SAY  ' 

*  assign  2nd  lieutenants  serving  in  the  ARTC 

*  to  the  combat  units  in  which  they  can  serve 

5)  5,23  SAY  'ASSIGNMENTS  FOR  THE  2d  LIEUTENANTS' 

3  6,23  SAY  '   WITH  ORIGIN  MA  SERVING  IN  ARTC 

a  7,23  SAY  '         ARE  BEING  PROCESSED' 

S  8,23  SAY  '  FIRST  PASS' 


*  open  required  -Files 

SELECT  3 

USE  requests  INDEX  requests 

SELECT  4 

USE  unit  INDEX  unit 

SELECT  5 

USE  unit org  INDEX  unit org 

SELECT  8 

USE  -File2 

STORE  .T.  TO  ok 

DO  WHILE  .NOT.  EOF ( ) 

'      '  TO  tsource 

serno 

rank 

source 

special ty 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


TO 

tserno 

TO 

trank 

TO 

tsource 

TO 

tspec 

0  TO 


'  TO  tunit,  tul,  tu2,  tu3 
TO  tel,  te2,  te3 
TO  trl,  tr2,  tr3 
:<1,  ;<2,  ;<3 
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*  -find  what  units  the  o-f-fi  cer  has  requested 
SELECT  3 

FIND  &tserno 
STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu3 

*  find  requested  units   in   the   unit   file,   and  store  the 

*  -fields  echelon  and  readines  into  temporary  memvars 
SELECT  4 

FIND  ?<tul 

STORE  echelon  TO  tel 

STORE  readiness  TO  trl 

FIND  2<tu2 

STORE  echelon  TO  te2 

STORE  readiness  TO  tr-2 

FIND  ?<tu3 

STORE  echelon  TO  te3 

STORE  readiness  TO  tr3 

SELECT  5 

LOCATE  FOR  echelon  =  tel  .AND.  readiness  =  trl 

STORE  macOl  TO  :<  1 

LOCATE  FOR  echelon  =  te2  .AND.  readiness  =  tr2 

STORE  macOl  TO  x2 

LOCATE  FOR  echelon  =  te3  .AND.  readiness  =  tr3 

STORE  mac 01  TO  :<3 

*  check  i-f  the  o-f-fi  cer  can   serve  in   the   requested   units 

*  according  to  the  unit  organization 

IF  <<:<1  #  0)  .AND.   (:<2  #  0)  .AND.   ( X3  #  0)  ) 

*  requests  ^r&    valid,  check  i-f  1st  requested  unit  is 

*  avai labl e 
SELECT  1 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tul 

IF  EOFO 

*  requested  unit  is  available,  unit  is  granted 

STORE  tul  TO  tun it 
STORE  0  TO  weight 

ELSE 

*  1st  requested  unit  is  not  available 

*  check  i-f  2nd  requested  unit  is  available 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tu2 

IF  EOFO 

*  requested  unit  is  available,  unit  is  granted 

STORE  tu2  TO  tun it 

STORE  1  TO  weight 
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ELSE 

*  2nd  requested  unit  is  not  available 

*  check  i-f  3rd  requested  unit  is  available 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tu-3 

IF  EOFO 

*  requested  unit  is  available,  unit  is  granted 

STORE  tu3  TO  tun it 

STORE  2  TO  weight 


ELSE 

*  none  o-f  the  requested  units 

*  assignment  will  be  resolved 

STORE  '*'  TO  tunit 
3  TO  weight 
.F.  TO  ok 


is  avai 1 abl e 
in  the  2nd  pass 


STORE 
STORE 
END  IF 
END  IF 
END  IF 


*  build  assignments  record  -For  the  o-f-ficer 

APPEND  BLANK 

REPLACE  serno  WITH  t serno,  unitname  WITH  tunxt, 

rank  WITH  trank,  asgndate  WITH  CTOD ('08/15/86' ) 
REPLACE  asnweight  WITH  weight,  source  WITH  tsour-ce  , 
specialty  WITH  tspec 
END  IF 
SELECT  8 
SK I P 
ENDDO 


*  i-f  there  Are    deferred  asignments  -from  the  -first  pass, 

*  resolve  them 
IF  .NOT.  ok 

SELECT  1 

5)  8,23  SAY  '  SECOND  PASS' 


try  to 


*  build  -file  containing  the  deferred  assignments 
COPY  TO  notokl2  FOR  unitname  =  '*'  .AND.  rank  =  '01', 

.AND.  source  =  'MA' 
SELECT  9 
USE  notokl2 
DO  WHILE  .NOT.  EOFO 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

SELECT  4 

GO  TOP 

STORE  .F.  TO  stop 
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*  -find  units  not  requested  by  any  o-f-ficer  in  which  a  2nd 

*  lieutenant  can  serve   and  assign  non-assigned  o-fficers 


* 

to  them 

DO 

WHILE  .NOT. 

EOF ( )  . 

AND.  .NOT.  sto 

IF  category 

=  'CU' 

STORE  ' 

/ 

TO 

tel 

STORE  '  ' 

r 

TO 

trl 

STORE  ' 

i 

TO  tun it 

STORE  uni 

.  tname 

TO 

t  un  i  t 

STORE  echelon 

TO 

tel 

STORE  readiness 

TO 

trl 

SELECT  5 

SEEK  tel 

+  trl 

IF  .NOT. 

EOFO 

IF  macOl  #  0 

SELECT  1 

LOCATE  FOR  rank=trank  .A 

IF 

EOFO 

FIND  &t 

:serno 

REPLACE  uni tname  WITH 

STORE  . 

T. 

TO  stop 

END  IF 

ENDIF 

END  IF 

ENDIF 

SELECT  4 

• 

SKIP 

ENDDO 

IF 

.NOT.  stop 

a  22, 18  SAY 

'*-**  INVALID  REQUEST 

END  IF 

SELECT  9 

sk: 

IP 

ENDDO 

END  IF 

CLOSE 

DATABASES 

unitname=  tun it 


tuni  t 


OR  INCORRECT  FILE' 


*  delete  non— required  temporary  -files 
DELETE  FILE  -filel.db-f 

DELETE  FILE  -file2.db-f 
DELETE  FILE  notokl 2.  db-f 

*  assigne  2nd  lieutenants  whose  source  is  NCOS 

*  to  the  units  in  which  they  can  serve  by  combining 

*  requests  and  assignment  weighs 

3  5,20  SAY  ' 

3  6,20  SAY  ' 

a  7,20  SAY  ' 

a  8,20  SAY  ' 
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a  5,23  SAY  'ASSIGNMENTS  FOR   THE  2d  LIEUTENANTS' 
5)  6,23  SAY  '        WHOSE   SOURCE  IS  NCOS' 
3  7,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  -for  the  processing  -files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  file5 

SELECT  3 

USE  file6 

SELECT  4 

USE  -file? 

STORE  .T.  TO  ok 

3  8,23  SAY  ' 

3  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  de-fere  it  for  the  second  pas? 
DO  WHILE  .NOT.  EOF () 

*  initialize  temporary  memvars 

STORE  ,F.  TO  granted 

STORE  .T.  TO  preference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit,tul ,tu2,tu3 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 

*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 
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*■  check  if  requested  by  the  officer  unit  is  available, 

*  i.e.  ,   examine  i-f   there   exists   an   officer   under 

*  assignment  whose  present  unit  is  the  requested  unit 
SELECT  3 

LOCATE  FOR  specialty  =  tspec  .AND.  unitname  =  tu, 
.AND.  serno  #  tserno  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOFO 

*  someone  else  -from  the  requested  unit  is  to  be  moved 

*  check  if  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  . F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED O 

IF  specialty  =  tspec  .AND.  serno  #  tserno 
IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 

STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked  for  deletion 

STORE  tu  TO  tun it 
DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 
STORE  .T.  TO  resolved 
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ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  pre-ference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference)) 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec 
IF  unitl=tu  .OR.  unit2=tu, 
.OR.  unit-3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  marstat  #  'S' 
STORE  .F.  TO  pre-ference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  pre-ference 

*  o-f-ficer  requested  this  unit  has  the 

*  pre-ference,  unit  is  granted,  record 

*  is  marked  -for  deletion 
STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 
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IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -for  the  next  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT  4 
SKIP 
ENDDO 

*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

3  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

SELECT  1 

*  build    temporary    -file    containing    unresolved    assignment; 
COPY    TO    -file8    FOR    unitname    =     '*'     .AND.     source    =     'NCOS' 
SELECT    5 

USE    -file8 

STORE  .F.  TO  deletion 

*  get  one  record  at  a  time  and  try  to  satify  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  '  '  TO  tunit 

SELECT  2 

*  -find  requested  units  and  store  them  into  memvars 

LOCATE  FOR  serno  =  tserno 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  -found 

STORE  .T.  TO  requested 

SO  TOP 
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*  -find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -found 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec 
STORE  serno  TO  idno 
*  unit  available 
DO  CASE 

CASE  unit name  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  -found  available  unit  is  not  requested 

STORE  .F.  TO  requested 
ENDCASE 
END  IF 
END  IF 
SK I P 
ENDDO 

IF  -found 

*  unit  available  is  one  o-f  the   requested,   mark   record 

*  -for  deletion,  so  that  it  will  not  be  encountered  again 

LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 

ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  for  deletion 

LOCATE  FOR  serno  =  idno 
STORE  unitname  TO  tunit 
STORE  3  TO  tweight 
STORE  .T.  TO  resolved 
DELETE 
ELSE 

a  22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED' SET  tserno 
ENDIF 
END  IF 
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SELECT    1 
FIND    2/tserno 

IF    resolved 

*  update  record  in  assigned  -file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  file  record   o-fticer   will   remain  in  the  same  unit 

DELETE 

STORE  .T.  TO  deletion 
ENDIF 

T  5 

TO  resolved 


SELECT 

5 

STORE  . 

,F. 

SKIP 

ENDDO 

ENDIF 

IF  deletion 

SELECT  1 

PACK 

ENDIF 

*  uodate  USERLOG  -File 

SELECT  6 

USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 

USE  user 1 og 

APPEND  BLANK 

REPLACE  username  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 

progname  WITH  'ASSIGN02',  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
DELETE  FILE  file6.db-f 
DELETE  FILE  -File7.db-F 
DELETE  FILE  -fileB.db-f 
RETURN 
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♦-a--*-****-****-*-*-*-**-*-**    PROGRAM  MKAUXFL1    ***********#**#***#*■* 

*  This  program  creates  the  temporary  -files   required   for   the 

*  assignment  processing  o-f  the  2nd  lieutenants 

DO  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  officer 
SELECT  3 
USE  requests 
SELECT  1 

a  8,30  SAY  'FILE1  .... ' 

COPY  TO  filel  FOR  unitname  =  'ARTC  -AND.  duty  =  'P/CDR' 
a  8,45  SAY  'READY' 
SELECT  4 
USE  filel 

a  9,30  SAY  'FILE2 ' 

JOIN  WITH  B  TO  file2  FOR  serno=B->serno  .AND.  B->source= 'MA ' , 

FIELDS  serno,  rank,  source,  specialty,  unitname 
3  9,45  SAY  'READY' 
SELECT  2 

a  10,30  SAY  'FILE3 ' 

COPY  TO  file3  FOR  rank  =  '01'  .AND.  source  =  'NCOS' 
3  10,45  SAY  'READY' 
SELECT  1 

a  11,30  SAY  'FILE4 ' 

COPY  TO  file4  FOR  enrol  date  <=  CTOD ( '07/31 /86 ' >  -  1065 

3  11 ,45  SAY  'READY' 

SELECT  5 

USE  file4 

SELECT  6 

USE  file3 

a  12,30  SAY  'FILES ' 

JOIN  WITH  E  TO  file5  FOR  serno  =  E->serno  , 

FIELDS  serno, rank , source , spec i al ty,asn weight ,marstat , , 

children,  unitname,  enroldate 
a  12,45  SAY  'READY' 
SELECT  3 
USE  requests 
SELECT  7 
USE  file5 

a  13,30  SAY  'FILE6 ' 

JOIN  WITH  C  TO  file6  FOR  serno  =  C->serno  , 

FIELDS  serno , rank , source , speci  al ty , asnwei  ght , marstat , , 

chi 1 dren , uni  tname , enrol  date , uni  1 1 , uni  t2 , uni  t3 , submdate 
a  13,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
USE  file6 
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COPY  TO  fileS 

3  14,30  SAY  'FILE?  .  . 

COPY  TO  -file? 

a  14,45  SAY  'READY' 

CLOSE  DATABASES 

DELETE  FILE  -file3.db-F 

DELETE  FILE  -file4.db-f 

RETURN 
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******************* 


PROGRAM  ASSIGN03 


********************* 


*  This  per-forms  the  assignments  o-F  the  captains,   and   updates 

*  USERLOG  file 

*  build  required  temporary  -Files 
DO  mkaux-fl-3 

*  display  window  on  the  screen 
DO  windowl 

*  assign  captains  to  units  in  which  they  can  serve 

*  by  combining  requests  and  assignment  weights 


5)  5,23  SAY 
3  6,23  SAY 


ASSIGNMENTS  FOR   THE  CAPTAINS' 
ARE  BEING  PROCESSED' 


*  open  required  -for 
SELECT  1 
USE  assigned 
SELECT  2 
USE  -file5 

§ifeE5TiI6 

SELECT  4 

USE  file? 

STORE  .T.  TO  ok 

5)  8,23  SAY  ' 

a  8,23  SAY  ' 

STORE  '08/15/86'  TO 


the  processing  -Files 
INDEX  assigned 


FIRST  PASS' 
tdate 


*  get  each  o-F-Ficer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  de-Fere  it  -For  the  second  pasi 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memvars 

STORE  .F.  TO  granted 

STORE  .T.  TO  preference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit,tul,tu2,tu3 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 
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*  determine  which  a-F  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  if  requested  by  the  o-f-fi  cer  unit  is  available 

SELECT  3 

LOCATE  FOR  special ty=tspec  .AND.  source=tsource  .AND., 

unitname=tu  .AND.  serno#tserno  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOFO 

*  requested  unit  avai 1  able, check  if  someone  else 

*  requests  the  same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED O 

IF  specialty  =  tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 
IF  unxtl=tu  .OR.  unit2=tu  .OR.  unit3=tu 

STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 
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STORE  .T.  TO  granted 

LOCATE  FOR  serno  =  tserno 

DELETE 

SELECT  2 

LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 

ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference)) 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  speci al ty=tspec , 
.AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 
.OR.  unit3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  marstat  #  'S' 
STORE  .F.  TO  preference 
ENDIF 
END  IF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
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SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TQ  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  for  the  next  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT  4 
SKIP 
ENDDO 

*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

S)  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 
STORE  .F.  TO  deletion 
SELECT  1 

*  build  temporary  -file  containing  unresolved  assignment 
COPY  TO  -fileB  FOR  unitname  =  '*'  .AND.  rank  =  '03' 
SELECT  5 

USE  -file8 

*  get  one  record  at  a  time  and  try  to  sati-fy  request 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memvars 
STORE  '      '  TO  tsource 
STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tunit 
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SELECT  2 

*  -find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tser-no 

STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit. 3  TO  tu3 
STORE  .F.  TO  -found 
STORE  .T.  TO  requested 
GO  TOP 

*  -find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -found 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 
.AND.  source  =  tsource 
STORE  serno  TO  idno 
*  unit  available 
DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tun it 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tun it 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tun it 
STORE  2  TO  tweight 
OTHERWISE 

*  -found  available  unit  is  not  requested 

ENDCASE  ST0RE  -F-  T°  re^e*ted 
END  IF 
END  IF 
SK I P 
ENDDO 

IF  -found 

*  unit  available  is  one  o-f  the  requested  units,  mark 

*  record  for  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  for  deletion 

LOCATE  FOR  serno  =  idno 

STORE  unitname  TO  tunit 

STORE  3  TO  tweight 

STORE  .T.  TO  resolved 

DELETE 
ELSE 

3  22,18  SAY  'OFFICER  CANNOT  BE  ASSISNED'GET  tserno 
END  IF 
END  IF 

SELECT  1 
FIND  ktserno 
IF  resolved 

*  update  record  in  assigned  file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 

ELSE 

*  no  available  unit  found,  delete  created  in  assigned 

*  file  record  officer,  will  remain  in  the  same  unit 
DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  -F.  TO  resolved 
SKIP 
ENDDO 
END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  update  USERLOG  file 
SELECT  6 
USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 
SELECT  7 
USE  user log 
APPEND  BLANK 

REPLACE  user-name  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  'ASSIGN03',  logdate  WITH  DATE ( ) , , 
log  time  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
DELETE  FILE  file6.dbf 
DELETE  FILE  fileT.dbf 
DELETE  FILE  file8.dbf 
RETURN 
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*■-*■•*■*■•*-*■•* -a--**  •*-*-*■*•■*■*■ -*-*■-*    PROGRAM  MKAUXFL3    **•*****-*•*■*-*■-*-*■-*•-*■*■*■-*-*-*-* 

*  This  program  creates  auxiliary  files  required  for  the 

*  assignment  processing  of  the  captains 

DO  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  officer 
SELECT  3 
USE  requests 
SELECT  2 

a  10,30  SAY  'FILE3 ' 

COPY  TO  file3  FOR  rank  =  '03' 
3  10,45  SAY  'READY' 
SELECT  1 

a  11,30  SAY  'FILE4 ' 

COPY  TO  file4  FOR  enrol  date  <=  CTOD (' 07/31 /86 ' )  -  1065 

a  11,45  SAY  'READY' 

SELECT  5 

USE  file4 

SELECT  6 

USE  file3 

a  12,30  SAY  'FILES ' 

JOIN  WITH  E  TO  fileS  FOR  serno  =  E->serno  , 

FIELDS  serno, rank , source , spec i  al ty ,asnwei  ght ,marstat , , 

children, 'unitname,  enroldate 
a  12,45  SAY  'READY' 
SELECT  7 
USE  fileS 

3  13,30  SAY  'FILE6 ' 

JOIN  WITH  C  TO  file6  FOR  serno  =  C->serno  , 

FIELDS  serno, r  an k , source, special ty , asn weight , marstat , , 

children,uni  tname , enrol  date, unit  1 , uni  t2,uni t3,submdate 
a  13,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
USE  file6 
COPY  TO  file5 

3  14,30  SAY  'FILE7 ' 

COPY  TO  file7 

a  14,45  SAY  'READY' 

CLOSE  DATABASES 

DELETE  FILE  file3.dbf 

DELETE  FILE  file4.dbf 

RETURN 
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******************  PROGRAM  ASSIGN04    ********************** 

*  This  program  performs  the  assignments  o-f  the  majors 

DO  mkau:<fl4 

DO  windowl 

*  assign  majors  graduating  -From  WC  to  artillery  sta-F-fs 

*  by  combining  requests  and  assignment  weights 

3  5,23  SAY  '     ASSIGNMENTS  FOR   THE  MAJORS' 
a  6,23  SAY  '   GRADUATING  FROM  THE  WAR  COLLEGE' 
a  7,23  SAY  '  ARE  BEING  PROCESSED' 

3  8,23  SAY  '  FIRST   PASS' 

STORE  '08/05/86'  TO  tdate 

*  open  required  for  the  processing  -files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  sta-F-fs 

SELECT  3 

USE  f i 1 e3 

SELECT  4 

USE  -file4 

SELECT  3 

STORE  0  TO  cnt 

STORE  .T.  TO  -found 

DO  WHILE  found 

IF  .NOT.  DELETED () 

STORE  '  '  TO  tun it ,tul ,tu2,tu3 

STORE  serno  TO  tserno 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

*  find  requested  units  and  store  name,  echelon, 

*  and  readiness  into  temporary  memvars 
STORE  1  TO  loopcnt 

STORE  .F.  TO  resolved 
STORE  .T.  TO  preference 
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DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 
IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
ENDIF 
END  IF 
SELECT  1 
LOCATE  FOR  ser-no  #  tser-no  .AND.  unitname  =  tu 

IF  EOFO 

*  requested  unit  is  available 

*  check  if  somebody  else  requests  the  same  unit 

SELECT  4 

DO  WHILE  .NOT.  EOFO  .AND.  preference 

IF  .NOT.  DELETED ()  .AND.  serno  #  tserno 

IF  unitl=tu  .OR.  unit2=tu  .OR.  umt3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 

IF  mar st  =  'S'  .AND.  marstat  tt  'S' 

STORE  .F.  TO  preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SK I P 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the  preference, 

*  unit  is  granted,  record  is  marked  for  deletion 

STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 
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LOCATE  FOR  serno  =  tserno 

DELETE 

SELECT  1 

FIND  &tserno 

REPLACE  unit name  WITH  tun it,, 

asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 
STORE  cnt  +  1  TO  cnt 
STORE  .T.  TO  resolved 
SELECT  3 
DELETE 
SELECT  2 

LOCATE  FOR  uni tname=tun l t  .AND.  .NOT.  DELETED ( ) 
DELETE 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 


END  IF 

SELECT  3 

SKIP 

IF  EOFO 

GO  TOP 

IF  cnt  # 

0 

STORE 

0  TO  cnt 

ELSE 

STORE 

.F.  TO  -found 

END  IF 

END  IF 

ENDDO 

3  8,23  SAY  ' 

SEC 

SELECT  3 

GO  TOP 

SECOND  PASS' 


DO  WHILE  .NOT.  EOFO 
IF  .NOT.  DELETED () 
STORE 
STORE 
STORE 
STORE 
STORE 
SELECT  2 

LOCATE  FOR  umtname  =  tul  .AND 
IF  .NOT.  EOFO 

STORE  0  TO  tweight 

STORE  tul  TO  tun it 

DELETE 


serno  TO  tserno 
unitl  TO  tul 
unit2  TO  tu2 
unit3  TO  tu3 
•  T.  TO  -found 


NOT.  DELETED O 
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ELSE 

LOCATE  FOR  unitname  =  tu2  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  1  TO  tweight 
STORE  tu2  TO  tunit 
DELETE 
ELSE 

LOCATE  FOR  unitname  =  tu3  .AND.  .NOT.  DELETED () 
IF  .NOT.  EOFO 

STORE  2  TO  tweight 
STORE  STORE  tu3  TO  tunit 
DELETE 
ELSE 

LOCATE  FOR  . NOT .  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  3  TO  tweight 
STORE  unitname  TO  tunit 
DELETE 
ELSE 

3  23,18  SAY  '***  ERROR' 
STORE  .F.  TO  -Found 
END  IF 
ENDIF 
END  IF 
ENDIF 
ENDIF 

IF  -found 

SELECT  1 

FIND  ktserno 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 
ENDIF 

SELECT  3 
DELETE 
SK I P 
ENDDO 

CLOSE  DATABASES 
DELETE  -File  -File3.db-F 
DELETE  -File  -File4.db-F 
DELETE  FILE  sta-F-Fs.  db-F 
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*  assign  majors  to  units  and  staffs  in  which  they  can 

*  serve  by  combining  requests  and  assignment  weights 
DO  windowl 

3  5,23  SAY  '     ASSIGNMENTS  FOR  THE  MAJORS' 

a  6,23  SAY  'SERVING  IN  STAFFS  AND  COMBAT  UNITS' 

3  7,23  SAY  '         ARE  BEING  PROCESSED' 


*  open  required  -for  the  processing  files 

SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  -File5 

SELECT  3 

USE  -file6 

SELECT  4 

USE  selected 

SELECT  5 

USE  -file? 

STORE  .T.  TO  ok 

S  8,23  SAY  ' 

a  8,23  SAY  ' 

STORE  '08/15/86' 


INDEX  selected 


FIRST 
TO  tdate 


PASS ' 


*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  de-Fere  it  for  the  second  pas? 
DO  WHILE- .NOT.  EOF ( ) 

STORE  .F.  TO  granted 

STORE  .T.  TO  preference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit,tul ,tu2,tu3 

SELECT  4 

FIND  ktserno 

IF  .NOT.  EOFO 

STORE  school  name  TO  tunit 

STORE  0  TO  tweight 

SELECT  3 

LOCATE  FOR  serno  =  tserno 

DELETE 
ELSE 

SELECT  5 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 
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*  determine  which  o-F  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  -AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
ENDIF 
END  IF 

*  check  i-f  requested  unit  is  available, 

SELECT  3 

LOCATE  FOR  specialty  =  tspec  .AND.  source  =  tsource, 

.AND.  unitname  =  tu  .AND.  serno  #  tserno, 

. AND .  . NOT .  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED O 

IF  .NOT.  EOFO 

*  someone  else  from  the  requested  unit  is  to  be 

*  moved,  check  i-f  someone  else  has  requested  the 

*  »     same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED O 

IF  special ty=tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 
.OR.  uni  t3  =  tu 
STORE  .T.  TO  done 
ENDIF 
ENDIF 
ENDIF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted , record  is  marked  -for  deletion 

STORE  tu  TO  tunit 
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DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tser-no 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ) 
IF  .NOT.  DELETED () 

IF  serno  #  tserno, 

•AND.  specialty  =  tspec, 
•AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 
.OR.  unit3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  mar st  =  'S ' , 

.AND.  marstat  #  'S' 
STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 
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DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  -=  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .  T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-Fere  it  -for  the  ne:<t  pass 

STORE  '*'  TO  tun it 

STORE  3  TO  tweight 

STORE  .F.  TO  ok 
END  IF 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 

SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT  5 
SKIP 
ENDDO 
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*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

SELECT  6 

USE  unit  INDEX  unit 

a  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

STORE  .F.  TO  deletion 

SELECT  1 

*  build  temporary  -File  containing  unresolved  assignment 
COPY  TO  -file8  FOR  unitname  =  '*'  .AND.  rank  =  '04' 
SELECT  5 

USE  file8 

*  get  one  record  at  a  time  and  try  to  sati-fy  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  '      '  TO  tsource 
STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tun it 

SELECT  2 

-*■  -find  requested  units  and  store  them  into  memvars 

LOCATE  FOR  serno  =  tserno 

STORE  '  '  TO  tu 

STORE  wc-finished  TO  twc 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  found 

STORE  .T.  TO  requested 

GO  TOP 

*  -find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -found 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 
.AND.  source  =  tsource 
STORE  serno  TO  idno 
*  unit  available 
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DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  found 
STORE  unitname  TO  tun it 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tun it 
STORE  1  TO  tweight 
CASE  unitname  =  tu-3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  -Found  available  unit  is  not  requested 

IF  unitname  =  ' OAB 
IF  twc 

STORE  .F.  TO  requested 
END  IF 
ELSE 

STORE  unitname  TO  tu 
SELECT  6 
FIND  2/.tu 

IF  category  =  'S  ' 
IF  twc 

STORE  .F.  TO  requested 
END  IF 
ELSE 

STORE  .F.  TO  requested 
END  IF 
END  IF 
SELECT  2 
ENDCASE 
END  IF 
ENDIF 
SKIP 
ENDDO 

IF  -Found 

*  unit  available  is  one  of  the  requested  units,  mark 

*  record  for  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  -for  deletion 

LOCATE  FOR  serno  =  idno 

STORE  unitname  TO  tunit 

STORE  3  TO  tweight 

STORE  .T.  TO  resolved 

DELETE 
ELSE 

•5)  22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED 'GET  tserno 
END  IF 
END  IF 
SELECT  1 
FIND  &tserno 
IF  resolved 

*  update  record  in  assigned  -File 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  file  record.  O-f-fi cer  will  remain  in  the  same  unit 

DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SK I P 
ENDDO 

END  IF 

IF  deletion 

SELECT  1 

PACK 
END  IF 

*  update  USERLOG  -file 

SELECT  6 

USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 

USE  user log 

APPEND  BLANK 

REPLACE  user-name  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 

progname  WITH  'ASSIGN04',  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
DELETE  FILE  -file6.db-f 
DELETE  FILE  -file7.db-f 
DELETE  FILE  -file8.db-f 
RETURN 
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*-*■*■•*■*-*■**■■*■*■*■-*-*•*-*-*•**    PROGRAM  MKAUXFL4    *-*•*■*-*-*-*-*-*■-*-*■■*■*-*-*•-*-■*-*■*■■*■** 

*  This  program  builds  the  required  auxiliary  -files  -for  the 

*  processing  o-f  the  assignments  o-f  the  majors 

DO  window 

*  build  -File  containing  personal  data  and 

*  requests  o-f  the  gr-aduaring  -from  WC  majors 
3  8,30  SAY  'FILE3 ' 

SELECT  1 

USE  o-f-fi  cer 

SELECT  2 

USE  serves 

COPY  TO  -filel  FOR  unitname  =  'WC 

SELECT  3 

USE  -filel 

JOIN  WITH  A  TO  -file2  FOR  serno  =  A->serno  , 

FIELDS  serno, -nurce , speci al ty , marstat ,uni  tname,asnwei  ght 
SELECT  4 
USE  requests 
SELECT  5 
USE  file2 
JOIN  WITH  D  TO  file3  FOR  serno  =  D->serno  , 

FIELDS  serno , source , special ty , uni  tname , uni  1 1 ,uni  t2,uni  t3 , , 
asn  weight ,  mars  tat  ,wc -finished 
3  8,45  SAY  'READY' 
SELECT  6 
USE  -file3 

a  9,30  SAY  'FILE4 ' 

COPY  TO  file4 

5)  9,45  SAY  'READY' 

CLOSE  DATABASES 

DELETE  FILE  -filel.db-f 

DELETE  FILE  -file2.db-f 

SELECT  7 

USE  assigned  INDEX  assigned 

3  10,30  SAY  'ASSIGNED  ' 

APPEND  FROM  -f  i  1  e3 
GO  TOP 

DO  WHILE  -NOT.  EOF ( ) 
IF  rank  =  '04' 

REPLACE  unitname  WITH  '*',, 

asgndate  WITH  CTOD ( '08/01 /86 '), , 
asnweight  WITH  0 
END  IF 
SK I P 
ENDDO 

3  10,45  SAY  'READY' 
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SELECT  S 
USE  unit 

5)  11, 30  SAY  '  STAFFS ' 

COPY  TO  staffs  FOR  category  =  'S  '  .AND.  unitname  #  'ABD/HAGS' 

CLOSE  DATABASES 

SELECT  2 

USE  staffs 

APPEND  FROM  unit  FOR  echelon  =  'AC/ AC 

5)  11,45  SAY  'READY' 

CLOSE  DATABASES 

*  build  file  containing  personal  data  and  requests 

*  for  the  rest  of  majors  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  officer 

3  12,30  SAY  'FILES ' 

COPY  TO  filel  FOR  rank  =  '04' 

SELECT  1 

COPY  TO  file2  FOR  DATE ( )  -  enroldate  >=  600, 

.AND.  unitname  #  'WC 
SELECT  3 
USE  file2 
SELECT  4 
USE  filel 
JOIN  WITH  C  TO  fileS  FOR  serno  =  C->serno  , 

FIELDS  serno, rank , source , special ty ,asn weight ,marstat , , 
uni  tname 
3  12,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  filel.dbf 
DELETE  FILE  file2.dbf 
SELECT  5 
USE  requests 
SELECT  6 
USE  fileS 

a  13,30  SAY  'FILE6 ' 

JOIN  WITH  E  TO  file6  FOR  serno  =  E->serno, 

FIELDS  serno , rank , source , speci  al  ty , asnwei  ght , marst  at , , 
uni  tname, uni  1 1 , uni t2 , uni t3 , wcf ini  shed 
CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 


bfc 

US 

3E    file6 

cc 

3PY    TO 

file 

3 

a 

13,45 

SAY 

'READY' 

a 

1 4 ,  30 

SAY 

' FILET    

cc 

3PY    TO 

file 

i 

a 

14,45 

SAY 

'READY' 

CLOSE    DATABASES 

RETURN 
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*■*-** -a-*-* -*-*■-*• -*-*-* •*■**■-*-*    PROGRAM  ASSI6N05    *********■***■*****■*■**■*+ 

*  This  program  performs  the  assignments  of  the  lieutenant 

*  colonels 

*  build  necessary  auxiliary  -files 
DO  mkauxflS 

*  assign   lieutenant   colonels  to  units  and  staffs   in   which 

*  they  can  serve  by  combining  requests  and  assignment  weights 

DO  windowl 

3  5,21  SAY  'ASSIGNMENTS  FOR  THE  LIEUTENANT  COLONELS' 

3  6,21  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  fileS 

SELECT  3 

USE  file6 

SELECT  4 

USE  selected  INDEX  selected 

SELECT  5 

USE  file? 

STORE  .T.  TO  ok 

3  8,23  SAY  ' 

S  8,23  SAY  '  FIRST   PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

STORE  .F.  TO  granted 

STORE  -T.  TO  preference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  t source 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit ,tul ,tu2,tu3 

SELECT  4 

FIND  ktserno 

IF  .NOT.  EOFO 

STORE  school  name  TO  tunit 

STORE  0  TO  t weight 

SELECT  3 

LOCATE  FOR  serno  =  tserno 

DELETE 
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ELSE 

SELECT  5  ' 
STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu3 
STORE  .F.  TO  resolved 
STORE  1  TO  loopcnt 

*  determine  which  of  the  requested  units 
♦will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 
IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  i-f  requested  unit  is  available, 

SELECT  3 

LOCATE  FOR  unitname  =  tu  .AND.  serno  #  tserno, 

. AND .  . NOT .  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOFO 

*  someone  else  -from  the  requested  unit  is  to  be 

*  moved  check  i-f  someone  else  has  requested  the 

*  same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED O 
IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  unit2  =  tu, 
.OR.  unit3  =  tu 
STORE  . T.  TO  done 
ENDIF 
END  IF 
ENDIF 
SK I P 
ENDDO 


IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted , record  is  marked  -for  deletion 

STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  pre-ference  to 

DO  WHILE  ((.NOT.  EOF  ( )  )  .AND.  (pre-ference)) 
IF  .NOT.  DELETED () 
IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  umt2  =  tu, 
.OR.  unit-3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  pre-ference 
ELSE 

IF  asnweight  =  weight 
IF  mar st  =  'S'  , 

•AND.  mar stat  #  'S' 
STORE  .F.  TO  pre-ference 
END  IF 
END  IF 
END  IF 
END  IF 
ENDIF 
ENDIF 
SK I P 
ENDDO 

IF  pre-ference 

*  o-f-fi  cer  requested  this  unit  has  the 

*  pre-ference,  unit  is  granted,  record 

*  is  marked  -for  deletion 
STORE  tu  TO  tun  it 
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DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -for  the  next  pass 

STORE  '*'  TO  tun it 

STORE  3  TO  tweight 

STORE  .F.  TO  ok 
END  IF 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 

SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT  5 
SK I P 
ENDDO 
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*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

SELECT  6 

USE  unit  INDEX  unit 

3  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

STORE  .F.  TO  deletion 

SELECT  1 

*  build  temporary  -file  containing  unresolved  assignments 
COPY  TO  fileB  FOR  unitname  =  '*'  .AND.  rank  =  '05' 
SELECT  5 

USE  f i 1 e8 

*  get  one  record  at  a  time  and  try  to  sati-fy  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  '      '  TO  tsource 
STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tun it 

SELECT  2 

*  find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tserno 

STORE  '  '  TO  tu 

STORE  wcfinished  TO  twc 
STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu3 
STORE  .F.  TO  -found 
STORE  .T.  TO  requested 
GO  TOP 

*  -Find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -Found 
IF  .NOT.  DELETED () 
IF  serno  #  tserno 

STORE  serno  TO  i dno 
*  unit  available 
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DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tunit 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  . T.  TO  found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -Found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  -Found  available  unit  is  not  requested 

IF  unitname  =  'OAB 
IF  twc 

STORE  .F.  TO  requested 
ENDIF 
ELSE 

STORE  unitname  TO  tu 
SELECT  6 
FIND  &tu 

IF  category  =  ' S  ' 
IF  twc 

STORE  .F.  TO  requested 
ENDIF 
ELSE 

STORE  .F.  TO  requested 
ENDIF 
ENDIF 
SELECT  2 
ENDCASE 
ENDIF 
ENDIF 
SK I P 
ENDDO 

IF  -Found 

*  unit  available  is  one  o-F  the  requested  units,  mark 

*  record  -For  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  -for  deletion 

LOCATE  FOR  serno  =  idno 

STORE  unit name  TO  tun it 

STORE  3  TO  tweight 

STORE  .T.  TO  resolved 

DELETE 
ELSE 

a  22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED 'GET  tserno 
END  IF 
END  IF 
SELECT  1 
FIND  &tserno 
IF  resolved 

*  update  record  in  assigned  -File 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  file  record.  O-f-ficer  will  remain  in  the  same  unit 

DELETE 

STORE  .T.  TO  deletion 
ENDIF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 

ENDIF 

IF  deletion 

SELECT  1 

PACK 
ENDIF 

*  update  USERLOG  -file 

SELECT  7 

USE  user  id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  8 

USE  user  log 

APPEND  BLANK 

REPLACE  username  WITH  G->username,  task  WITH  'ASSIGNMENTS',, 

progname  WITH  'ASSIGN05',  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
DELETE  FILE  -file6.db-f 
DELETE  FILE  -file7.db-f 
DELETE  FILE  -file8.db-f 
RETURN 
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•**-*•* -*■•*■* -*■*■* -*■■**■ -a--**-*-*    PROGRAM  MKAUXFL5    •***•*-*-******•*-*•**■*-**■-*■*•*-* 

*  This  program  builds  the  required  auxiliary  files  tor  the 

*  processing  o-f  the  assignments  o-F  the  lieutenant  colonels 

DO  window 

*  build  file  containing  personal  data  and  requests 

*  for  the  lieutenant  coloneles  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  officer 

a  8 , 30  SAY  ' F I LE5  .... ' 

COPY  TO  filel  FOR  rank  =  '05' 

SELECT  1 

COPY  TO  file2  FOR  DATE ( )  -  enrol  date  >=  600 

SELECT  3 

USE  file2 

SELECT  4 

USE  filel 

JOIN  WITH  C  TO  file5  FOR  serno  =  C->serno  , 

FIELDS  serno , rank , source , speci  al ty , asnwei  ght , marstat , , 
uni tname 
3  8,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  filel.dbf 
DELETE  FILE  file2.dbf 
SELECT  5 
USE  requests 
SELECT  6 
USE  file5 

a  9,30  SAY  'FILE6 ' 

JOIN  WITH  E  TO  file6  FOR  serno  =  E->serno, 

FIELDS  serno, rank , source, speci  al ty, asnwei  ght , marstat , , 
uni  tname , uni  1 1 ,uni  t2 ,uni  t3 , wcf  i  ni  shed 
CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
SELECT  7 
USE  file6 
COPY  TO  file5 
5)  9,45  SAY  'READY' 

a  10,30  SAY  'FILE7 ' 

COPY  TO  file? 

a  10,45  SAY  'READY' 

CLOSE  DATABASES 

RETURN 


161 


******************  PROGRAM  ASSIGN06    ********************** 

*  This  program  per -forms  the  assignments  o-f  the  colonels 

*  build  necessary  auxiliary  -files 
DO  mkaux-fl6 

*  assign  colonels  to  units  and  sta-f-fs  in  which  they  can 

*  serve  by  combining  requests  and  assignment  weights 


DO  windowl 
3  5,21  SAY  ' 
3  6,21  SAY  ' 


ASSIGNMENTS  FOR  THE  COLONELS' 
ARE  BEING  PROCESSED' 


*  open  required  -for-  the  processing  files 

SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  -file5 

SELECT  3 

USE  -file6 

SELECT  4 

USE  -file? 

STORE  .T.  TO  ok 

3  3,23  SAY  ' 

3  8,23  SAY  '  FIRST   PASS' 

STORE  '08/15/86'  TO  tdate 


*  get  each  o-f-ficer  under-  assignment  and  determine  the 

*  unit  to  be  assigned  or  de-fere  it  -for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

STORE  .F.  TO  granted 

STORE  .T.  TO  pre-ference 

STORE  serno  TO  tserno 

STORE  rank   TO  trank 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  marstat  TO  marst 

STORE  '  '  TO  tunit,tul ,tu2,tu3 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 
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*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  i-F  requested  unit  is  available 

SELECT  3 

LOCATE  FOR  unitname  =  tu  .AND.  serno  #  tserno, 

.AND.  .NOT.  DELETED () 
IF  .NOT.  EOFO 

STORE  serno  TO  idno 

SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOFO 

*  someone  else  -from  the  requested  unit  is  to  be  moved 

*  check  if  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOFO  .AND.  .NOT.  done 
IF  .NOT.  DELETED O 
IF  serno  #  tserno 

IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 

STORE  .T.  TO  done 
END  IF 
ENDIF 
ENDIF 
SK I P 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,   requested 

*  unit  is  granted,  record  is  marked  -for  deletion 

STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 
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STORE  .T.  TO  granted 

LOCATE  FOR  serno  =  tserno 

DELETE 

SELECT  2 

LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 

ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ) 
IF  .NOT.  DELETED () 
IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  unit2  =  tu, 
.OR.  unit-3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S' , 

.AND.  mar st at  #  'S' 
STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 

CASE  loopcnt  =  2 

STORE  1  TO  tweight 

CASE  loopcnt  =  3 

STORE  2  TO  tweight 
ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
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SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ENDIF 
END  IF 
ENDIF 
ENDIF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -for  the  ne:<t  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
ENDIF 

*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 

asgndate  WITH  CTOD(tdate) 
SELECT  4 
SKIP 
ENDDO 

*  second  pass 

IF  .NOT.  ok 

*  unresolved  assignments  exist 

3  3,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  deletion 

SELECT  1 

*  get  one  record  at  a  time  and  try 

*  to  satis-fy  unsatis-fied  requests 
GO  TOP 

STORE  0  TO  cnt 

DO  WHILE  .NOT.  EOF ( ) 

IF  unitname  =  '*         ' 
STORE  serno  TO  tserno 

STORE  '  '  TO  tunit,tul ,tu2,tu3 

SELECT  3 
GO  TOP 
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*  -find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tserno 

STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu3 
STORE  .F.  TO  found 

*  -Find  available  units 
SELECT  2 

SO  TOP 

DO  WHILE  ((.NOT.  EOF  ( )  )  .AND.  (.NOT.  -Found)) 
IF  .NOT.  DELETED () 
IF  serno  #  tserno 
*  unit  available 
DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  unitname  TO  tun it 
STORE  0  TO  tweight 
DELETE 

STORE  .T.  TO  -Found 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  unitname  TO  tun it 
STORE  1  TO  tweight 
DELETE 

STORE  .T.  TO  found 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  unitname  TO  tun it 
STORE  2  TO  tweight 
DELETE 

STORE  .T.  TO  found 
OTHERWISE 

*  found  available  unit  is  not  requested 

STORE  cnt  +  1  TO  cnt 
ENDCASE 
ENFIF 
END  IF 
SK I P 
ENDDO 

IF  found 

*  available  unit  is  one  of  the  requested 

SELECT  1 

REPLACE  unitname  WITH  tun it,, 
asnweight  WITH  tweight 
END  IF 
END  IF 
SELECT  1 
SK  I P 
ENDDO 

166 


SELECT  1 
GO  TOP 

DO  WHILE  .NOT.  EOF () 

IF  unitname  =  '*  ' 
STORE  serno  TO  tserno 
STORE  '  '  TO  tun it 

SELECT  2 

LOCATE  FOR  serno  #  tserno  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  unitname  TO  tun it 
DELETE 
SELECT  1 

REPLACE  unitname  WITH  tunit 
ELSE 

SELECT  1 
DELETE 

STORE  .T.  TO  deletion 

a)  24,20  SAY  'OFFICER  CANNOT  BE  ASSIGNED'GET  tserno 
END  IF 
END  IF 
SELECT  1 
SKIP 
ENDDO 

END  IF 

IF  deletion 

SELECT  1 

PACK 
END  IF 

*  update  USERLOG  -file 

SELECT  7 

USE  user  id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  8 

USE  user log 

APPEND  BLANK 

REPLACE  user-name  WITH  G->username,  task  WITH  'ASSIGNMENTS',, 

progname  WITH  'ASSIGN06',  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 

CLOSE  DATABASES 
DELETE  FILE  -File5.db-f 
DELETE  FILE  -File6.db-f 
DELETE  FILE  -fileT.dbf 
RETURN 
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-*-*-*•-*••*■* ♦-a--*-*-*"*-*-*"* ■*■■*"*■    PROGRAM  MKAUXFL6    #****»*********♦»***** 

*  This  program  builds  the  required  auxiliary  -files  -For  the 

*  processing  of  the  assignments  o-f  the  colonels 

DO  window 

*  build   -file   containing   personal  data   and 

*  requests  -for  the  coloneles  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  o-f-ficer 

3  8,30  SAY  'FILES ' 

COPY  TO  filel  FOR  rank  =  '06' 

SELECT  1 

COPY  TO  file2  FOR  DATE < )  -  enrol  date  >=  300 

SELECT  3 

USE  -file2 

SELECT  4 

USE  -filel 

JOIN  WITH  C  TO  -file5  FOR  serno  =  C->serno  , 

FIELDS  serno ,rank , source , spec i al ty ,asn weight ,marstat , , 
uni tname 
3  8,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  -filel.db-f 
DELETE  FILE  file2.db-f 
SELECT  5 
USE  requests 
SELECT  6 
USE  -fileS 

a  9 ,  30  SAY  '  F I LE6 ' 

JOIN  WITH  E  TO  -file6  FOR  serno  =  E->serno, 

FIELDS  serno , rank , source , speci  al ty , asnwei  ght , marstat , , 
uni  tname,  uni  1 1  ,uni  t2,  uni  t3,  wc-f  ini  shed 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
SELECT  7 
USE  -file6 
COPY  TO  file5 
3  9,45  SAY  'READY' 

a  10,30  SAY  'FILE7  ' 

COPY  TO  -file? 

a  10, 45 'SAY  'READY' 

CLOSE  DATABASES 

RETURN 
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E.   PROGRAMS  PRODUCING  THE  REQUIRED  LISTS  AND  REPORTS 

******-*-*-*■**-*■-*■-*■-*•-*•*-*-■*■*    PROGRAM  REPORTS    *•******-*-*-*-*•*-*■*-*+*-*■«•-*■- 

*  Tis  program  controls  the  report  generation  operations 

CLEAR 

PUBLIC  repcode 

DO  r-gmenu 

DO  WHILE  repcode  #  9  . 

DO  CASE 

CASE  repcode  =  1 

DO  listl 
CASE  repcode  =  2 

DO  list2 
CASE  repcode  =  3 

DO  list3 
CASE  repcode  =  4 

DO  list4 
CASE  repcode  =  5 

DO  list5 
CASE  repcode  =  6 

DO  list6 
CASE  repcode  =  7 

DO  report  1 
CASE  repcode  =  8 

DO  report2 
ENDCASE 

DO  r-gmenu 
ENDDO 

RETURN 
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* *■***-* *■*-*■*-*■•*-»■  ■*■*-*- *■-*-*■*-*•    PROGRAM  LIST1    ******■*■**•■*■**■*•-*•■*•*■■***■*■*■* 

*  This  program  provides  display  or  printer  output  of  the 

*  assignments  -for  a  speci-fic   rank 

CLEAR 

DO  window2 

STORE  '   '  TO  trank 

a  5,22  SAY  'LIST  OF  SCHEDULED  ASSIGNMENTS  FOR  THE' 
a  6,23  SAY  '  REQUESTED  RANK  IS  GOING  TO  BE  PRINT  ' 
a  14,23  SAY  '  SPECIFY  RANK   ==>'  GET  trank, 

PICTURE  '99' 
READ 

a  14,23  SAY  ' 

3   8,23  SAY  '       AUXILIARY  FILE   REQUIRED' 
a   9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

3  10,23  SAY  '  WAIT  

SELECT  1 

USE  o-f-fi cer  INDEX  officer 

SELECT  2 

USE  serves  INDEX  serves 

SELECT  3 

USE  auxfile 

SELECT  5 

USE  user id 

SELECT  6 

USE  user log 

SELECT  4 

USE  assigned  INDEX  assigned 

DO  WHILE  .NOT.  EOF ( ) 
IF  rank  =  trank 

STORE  '  '  TO  tname 

STORE  '  '  TO  tsunit ,tdunit 

STORE  '  '  TO  tduty 

STORE  serno     TO  tser-no 

STORE  uni tname  TO  t dun it 

STORE  asgndate  TO  tdate 

SELECT  1 

FIND    Sttserno 

STORE  name  TO  tname 

SELECT  2 

FIND  &tserno 

STORE  uni tname  TO  tsunit 

SELECT  3 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,rank  WITH  trank,, 

name  WITH  tname, unitid  WITH  tsunit, dunit  WITH  tdunit,, 

date  WITH  tdate, duty  WITH  tduty 
END  IF 
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SELECT  4 
SKIP 
ENDDO 


3   8,47  SAY  'READY' 

SELECT  3 

STORE  '  '  TO 

3  14,23  SAY 

READ 

IF  UPPER (answer)  = 
3  14,23  SAY  ' 
3  12,23  SAY  ' 
SET  PRINT  ON 
3  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 

CLEAR 

REPORT  FORM  mklistl 

IF  UPPER (answer)  = 
SET  PRINT  OFF 

END  IF 

GO  TOP 

DELETE  NEXT  500 

PACK 

SELECT  5 

LOCATE 

SELECT 

APPEND 

REPLACE 


answer- 
PR  INTER 


OUTPUT?  (Y/N)  ==>'  GET  answer 


Y' 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY   TO  CONTINUE' 


'Y' 


iw ) 


FOR  password  =  UPPER (pi 
6 

BLANK 
user  name  WITH  E-:  user  name,  task:  WITH  'LIST  # 
progname  WITH  'LIST1',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 
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*•*-*•*- •**+-*•■*■*-*■-*■-*■■*•**•-*- *•-*-*-*    PROGRAM  LIST2    ********************** 

*  This  program  provides  display  or  printer-  output  o-f  the 

*  o-f-ficers  serving  in  a  specific  unit 

CLEAR 

DO  window2 

STORE  '  '  TO  tunit 

3  5,23  SAY  '    LIST  OF  OFFICERS  SERVING  IN  A' 

3  6,23  SAY  '  SPECIFIC  UNIT  IS  GOING  TO  BE  PRINT  ' 

3  14,23  SAY  '       SPECIFY  UNIT  ==>'  GET  tunit 

READ 

3  14,23  SAY  ' 

3  8,23  SAY  '       AUXILIARY  FILE   REQUIRED' 

3  9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

3  10,23  SAY  '          WAIT  

USE  o-F-ficer  INDEX  officer  ALIAS  lookup 

SELECT  2 

USE  auxfile 

SELECT  5 

USE  user id 

SELECT  6 

USE  user 1 og 

SELECT  3 

USE  serves  INDEX  serves 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 
IF  unitname  =  tunit 
SELECT  2 
APPEND  BLANK 

REPLACE  serno  WITH  C->serno , rank  WITH  1 ookup->rank , , 
name  WITH  1 ookup— >name ,uni t i d  WITH  C- >uni tname , , 
date  WITH  C->enrol date , duty  WITH  C->duty 
END  IF 

SELECT  3 
SKIP 
ENDDO 

3   S,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

3  14,23  SAY  '      PRINTER  OUTPUT^'  (Y/N)  ==>'  GET  answer 

READ 
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IF  UPPER (answer )  = 
a  14,23  SAY  ' 
5)  12,23  SAY  ' 
SET  PRINT  ON 
3  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 


Y' 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 

REPORT  FORM  mklist2 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 


GO  TOP 

DELETE 

PACK 

SELECT 

LOCATE 

SELECT 

APPEND 

REPLACE 


NEXT  500 


FOR  password  =  UPPER (psw) 
6 

BLANK 
user-name  WITH 
progname  WITH 
log time  WITH 
CLOSE  DATABASES 
RETURN 


E->username,  task  WITH  'LIST  # 
'LIST2',  logdate  WITH  DATE ( ) , , 
T I ME ( ) 
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-** -*-*■*■-*•-*  ■*■*••*-*■■*-*"*"*")<"*  *"*"*  * 


PROGRAM  LIST3 


**■***■*■****■*******■***■*# 


*  This  program  provides  display   or  printer  output  o-f  the 

*  Artillery  o-f-ficers  in  some  requested  order 

CLEAR 

DO  window2 

STORE  0  TO  order 


a 

5  . 

23 

a 

6, 

23 

Si 

81 

23 

Si 

9, 

^T7 

Si 

10, 

23 

Si 

11  , 

23 

Si 

12, 

23 

a 

14, 

23 

READ 

a 

5, 

23 

Si 

6, 

23 

a 

8, 

23 

a 

9, 

23 

a 

10, 

23 

a 

11, 

23 

a 

12, 

23 

a 

14, 

23 

SAY  '  LIST  OF  OFFICERS' 

SAY  '  IN  SOME  ORDER  IS  GOING  TO  BE  PRINT' 

SAY  '  POSSIBLE  ORDERS' 

SAY  '  SENIORITY  (RANK): 1' 

SAY  '  ALPHABETICAL: 2' 

SAY  '  SPECIALTY: 3' 

SAY  '  RANK  +  ALPHABETICAL: 4' 

SAY  '  SPECIFY  ORDER  ==>'  GET  order, 
PICTURE  '9'  RANGE  1,49 

SAY  '  AUXILIARY  FILE   REQUIRED' 

SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

SAY  '  WAIT 

SAY  ' 

SAY  ' 

SAY  ' 

SAY  ' 

SAY  ' 


USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  aux-File 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-ffi  cer  INDEX  o-f -F  i cer  ,  names, ospeci  al  ,  compound 

DO  CASE 

CASE  order  =  1 

SET  INDEX  TO  officer 
CASE  order  =  2 

SET  INDEX  TO  names 
CASE  order  =  3 

SET  INDEX  TO  ospeci al 
CASE  order  =  4 

SET  INDEX  TO  compound 
ENDCASE 

SET  RELATION  TO  serno  INTO  lookup 
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DO  WHILE  .NOT.  EOF ( ) 
SELECT  2 
APPEND  BLANK 
REPLACE  rank  WITH  C->rank,name  WITH  C->name,, 

source  WITH  C->source,specialty  WITH  C->special ty , , 
unitid  WITH  1 ookup— >uni tname ,marstat  WITH  C— >marstat 
SELECT  3 
SKIP 
ENDDO 

a   8,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

5)  14,23  SAY  '      PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


IF  UPPER (answer)  = 
a  14,23  SAY  ' 
S  12,23  SAY  ' 
SET  PRINT  ON 
a  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 


Y' 


SWITCH  ON  YOUR  PRINTER' 
HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 

REPORT  FORM  mklist3 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 

GO  TOP 

DELETE  NEXT  500 

PACK 


SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 

APPEND  BLANK 

REPLACE  user-name  WITH  D->username,  task  WITH  'LIST  #3',, 

progname  WITH  'LIST3',  logdate  WITH  DATE ( ) , , 

log  time  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


*■*•*■ -*•■*■■**-*• -*•*-*- -*-*-* -*+-*■ -*-*■*    PROGRAM  LIST4    *****-*-*■*■-*•*-*•*■*■*■*■*■*■*■■*-*■■*■-*-* 

*  This  program  provides  display  or  printer  output  o-f  the 

*  Artillery  o-f-ficers  o-f  some  requested  rank 

CLEAR 

DO  window2 

STORE  '   '  TO  trank 

a   5,23  SAY  '  LIST  OF  OFFICERS  OF  SOME' 

a   6,23  SAY  'REQUESTED  RANK  IS  GOING  TO  BE  PRINT' 

a  14,23  SAY  '  SPECIFY  RANK  ==>'  GET  trank  PICTURE  'XX' 

READ 

3   5,23  SAY  '  AUXILIARY  FILE   REQUIRED  ' 

a   6,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

a   8,23  SAY  '  WAIT  

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  aux  -File 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-f-fi  cer  INDEX  officer 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 
IF  rank  =  trank 
SELECT  2 
APPEND  BLANK 
REPLACE  rank  WITH  C->rank,name  WITH  C->name,, 

source  WITH  C->source, speci al ty  WITH  C->special ty , , 
unitid  WITH  1 ookup— >uni tname ,marstat  WITH  C->marstat 
END  IF 

SELECT  3 
SK I P 
ENDDO 

a   8,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

a  14,23  SAY  '       PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


176 


IF  UPPER (answer)  = 
3  14,23  SAY  ' 
5)  12,23  SAY  ' 
SET  PRINT  ON 
S)  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 


Y' 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 

REPORT  FORM  rnklist4 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 


GO  TOP 
DELETE  NEXT 
PACK 


>00 


SELECT  4 

LOCATE  FOR  rassword  =  UPPER (psw) 

SELECT  5 

APPEND  BLANK 

REPLACE  user-name  WITH  D->username ,  task  WITH  'LIST  # 

progname  WITH  'LIST4',  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


4' 


-*•*••*"*"*  ■*"*-* -K"*-*-*"* -*-*■■* -*•■*"*"*  * 


PROGRAM  LIST5 


***■*-*-*•■*■*■*■*■•*■-*■•*•-*••*-*-*■*■•*-*■*-* 


*  This  program  provides  display  or  printer  output  o-F 

*  the  Artillery  battalion  commanders 

CLEAR 

DO  windaw2 

3  5,23  SAY  '  LIST  OF  THE  BATTALION  COMMANDERS 

3  6,23  SAY  '  IS  GOING  TO  BE  PRINT' 

3  8,23  SAY  '  AUXILIARY  FILE   REQUIRED  ' 

3  9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT 

3  10, 23  SAY  '  WA I T ' 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  aux-file 

SELECT  4 

USE  useid 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-F-Ficer 


INDEX  o-F-Ficer 


SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 
IF  rank  =  '05' 

IF  lookup- >duty  =  'CDR 
SELECT  2 
APPEND  BLANK 

REPLACE  rank  WITH  C->rank,name  WITH  C->name,, 
source  WITH  C->source,, 
specialty  WITH  C->speci al ty , , 

marstat  WITH  C- >marst at , serno  WITH  C->serno 
REPLACE  unitid  WITH  1 ookup->uni tname , , 
date  WITH  1 ookup->enrol date 
END  IF 

END  IF 

SELECT  3 
SK I P 
ENDDO 


3  10,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO 

3  14,23  SAY 

READ 


answer- 
PR  INTER 


OUTPUT?  (Y/N)  ==: 


GET  answer 
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IF  UPPER (answer)  = 
a  14,23  SAY  ' 
3  12,23  SAY  ' 
SET  PRINT  ON 
3  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 


Y' 


SWITCH  Oi«.'  YOUR  PRINTER' 
HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 

REPORT  FORM  mklist5 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 


SO  TOP 
DELETE  NEXT 
PACK 


>00 


SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 

APPEND  BLANK 

REPLACE  user-name  WITH  D-::  user-name,  task  'LIST  #5',, 

progname  WITH  'LIST5',  logdate  WfTH  DATE ( ) , , 

log  time  WITH  TIMEO 

CLOSE  DATABASES 
RETURN 
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•a--** ■*■*•* •*-*■*-* -a-*-*-*-* ■*■*"*■■*"*•*    PROGRAM  LIST6    *-**-***-*•-*■■*■*■-*■■*-*-*■*■*■-*■•**-*•** 

*  This,  program  provides  display  or  printer  output  -for  the 

*  officers  serving  outside  the  Artillery  Branch 


CLEAR 

DO  window2 

a   5  ,  23 

SAY 

a   6 ,  23 

SAY 

a   8,23 

SAY 

3   9,23 

SAY 

a  10,23 

SAY 

LIST  OF  OFFICERS  SERVING  OUTSIDE   ' 
THE  BRANCH   IS  GOING  TO  BE  PRINT' 
AUXILIARY  FILE   REQUIRED  ' 
FOR  THE  PROCESSING  IS  BEING  BUILT   ' 
WA I T ' 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  au:<  file 

SELECT  4 

USE  user id 

SELECT  5 

USE  user log 

SELECT  3 

USE  officer  INDEX  officer 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 

IF  lookup— >un it name  =  'OAB      ' 
SELECT  2 
APPEND  BLANK 
REPLACE  rank  WITH  C->rank,name  WITH  C->name,, 

source  WITH  C->source , speci al ty  WITH  C— >speci al ty , , 
marstat  WITH  C- >marst at , serno  WITH  C— >serno 
REPLACE  unitid  WITH  1 ookup->uni tname , , 
date  WITH  1 ookup— >enrol date 
END  IF 

SELECT  3 
SKIP 
ENDDO 

a  10,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

a  14,23  SAY  '      PRINTER  OUTPUT'"'  (Y/N)  ==>'  GET  answer 

READ 
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IF  UPPER (answer)  = 
3  14,23  SAY  ' 
3  12,23  SAY  ' 
SET  PRINT  ON 
S)  13,23  SAY  ' 
SET  CONSOLE  OFF 
WAIT 
SET  CONSOLE  ON 

END  IF 


'Y' 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 

REPORT  FORM  mklist6 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 


GO  TOP 
DELETE  NEXT 
PACK 


500 


SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 

APPEND  BLANK 

REPLACE  user name  WITH  D->username,  task  WITH  'LIST  # 

progname  WITH  'LIST6',  logdate  WITH  DATE ( ) , , 

log  time  WITH  TIMEO 


*',, 


CLOSE  DATABASES 
RETURN 
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********************    PROGRAM  REPORT  1    ********************* 

*  This  program  provides  display  or  printer   output   containing 

*  all  service  data  concerning  a  speci-fic  o-f-ficer 

CLEAR 

DO  window2 

STORE  '       '  TO  tserno 

3   5,22  SAY  'SERVICE  TIME  REPORT  FOR  THE  REQUESTED' 

3   6,23  SAY  '    OFFICER  IS  GOING  TO  BE  PRINT  ' 

3  14,23  SAY  '       ENTER  SERIAL  #  ==>'  GET  tserno 

READ 

3  14,23  SAY  ' 

SELECT  3 

USE  user id 

SELECT  4 

USE  user log 

SELECT  1 

USE  historic  INDEX  historic 

SELECT  2 

USE  o-F-ficer  INDEX  o-F-ficer 

FIND  &tserno 

IF  .NOT.  EOFO 

STORE  name  TO  tname 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  DATEO  TO  tdate 

SELECT  1 

STORE  '  '  TO  answer 

3  14,23  SAY  '       PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 

IF  UPPER (answer)  =  'Y' 

3  14,23  SAY  ' 

3  12,23  SAY  '         SWITCH  ON  YOUR  PRINTER' 

3  13,23  SAY  '        HIT  ANY  KEY   TO  CONTINUE' 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 

SET  PRINT  ON 
END  IF 
CLEAR 
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■— .   / 


ABD/HAGS  DATE:',tdate 


r>  f 


r>  r 


OFFICERS  SERVICE  TIME  REPORT' 


SERIAL  #  :',tserna,'NAME  :',tname 

SOURCE  :',tsource,'  .      SPECIALTY  :',tspec 

DATE    TRANSACTION  RANK    UNIT  ORDER  ID' 


LIST  transdate ,  transtype  ,  rank  ,unit,  order-id  , 
FOR  serno  =  tserno 

IF  UPPER (answer)  =  'Y' 
SET  PRINT  OFF 
SELECT  3 

LOCATE  FOR  password  =  UPPER (psw) 
SELECT  4 
APPEND  BLANK 
REPLACE  username  WITH  C->username, , 

task  WITH  'REPORT  #  1',, 

progname  WITH  'REP0RT1 ' ,  logdate  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 
END  IF 

ELSE 

3  14,23  SAY  'OFFICER  DOES  NOT  EXIST  IN  DATABASE' 
DO  delay 
END  IF 

CLOSE  DATABASES 
RETURN 
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**************  ***** 


PROGRAM  REP0RT2 


********************** 


*  This  program  provides  display  or  printer-  output 

*  concerning  the  status  o-f  a  specific  officer 


CLEAR 

DO  window2 

STORE  ' 


TO  tser-no 


a   5,23  SAY  '  STATUS  REPORT  FOR  THE  REQUESTED' 

a   6,23  SAY  '    OFFICER  IS  GOING  TO  BE  PRINT  ' 

a)  14,23  SAY  '        ENTER  SERIAL  #  ==>'  GET  tserno 
READ 

3  14,23  SAY  ' 

STORE  DATEO  TO  tdate 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  officer  INDEX  officer 

SET  RELATION  TO  serno  INTO  lookup 

FIND  &tserno 

IF  .NOT.  EOFO 

STORE  '  '  TO  answer 

a  14,23  SAY  '      PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


IF  UPPER (answer)  =  'Y' 

a  14,23  SAY  ' 

a  12,23  SAY  ' 

SET  PRINT  ON 

a  13,23  SAY  ' 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
END  IF 


SWITCH  ON  YOUR  PRINTER' 
HIT  ANY  KEY   TO  CONTINUE' 


CLEAR 


1S4 


ABD/HAGS 


DATE: ' ,tdate 


OFFICERS  STATUS  REPORT' 


NAME 

SERIAL  NUMBER 

RANK 

NOMINATION  YEAR 

SOURCE 

SPECIALTY 

MARITAL  STATUS 

CHILDREN 

WORKING  WIFE 

ORIGIN 

UNIT 

ENROLMENT  DATE 

DUTY 


name 

serno 

rank 

namyear 

source 

special ty 

marstat 

chi ldren 

workwi f e 

origcity, ' , ' ,  origcounty 

lookup— >un  i tname 

1 ookup  —  /enrol  date 

1  oo  k  up  —  >d  u t  y 


IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 

SELECT  3 

USE  user id 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  4 

USE  user log 

APPEND  BLANK 

REPLACE  user name  WITH  C->username , , 

task  WITH  'REPORT  #2',, 

progname  WITH  ' REP0RT2 ' , 1 ogd^te  WITH  DATE ( ) , , 

logtime  WITH  TIMEO 

ELSE 

3  14,23  SAY  'OFFICER  DOES  NOT  EXIST  IN  DATABASE' 
DO  delay 
END  IF 

CLOSE  DATABASES 
RETURN 


1S5 


F.   MISCELLANEOUS  PROGRAMS 


-*■■**■■*■-*-*■ -*-**■  *-*-*• -*-*-*  *-*■-*  •*•-*-* 


PROGRAM  GRFLAG 


*■*■*■*■■*****■*■*#**■****■*#*■ 


*  This  program  displays  on  the  screen  the  Hellenic  Flag 


SET  COLOR  TO  W+ 

CLEAR 

STORE  ' 

TO  blankl 

STORE  ' 

STORE  ' 

STORE   7  TO 

r 

STORE  28  TO 

c 

3   7,18  GET 

blankl 

3   7,24  GET 

blankl 

3   8, 18  GET 

blankl 

3   8,24  GET 

blankl 

3  10,  18  GET 

blankl 

3  10,24  GET 

blankl 

3  11,18  GET 

blankl 

3  11,24  GET 

b 1  an  k 1 

DO  WHILE  r    <  13 

S  r,c  GET  blank3 
STORE  r+2  TO  r 

ENDDO 


TO  blank2 


TO  blank3 


STORE  18  TO  c 

DO  WHILE  r  <  17 

a  r , c  GET  b 1  an  k 
STORE  r+2  TO  r 

ENDDO 

SET  COLOR  TO  W 
RETURN 


*-**-*-***-»**-x-)f-**-X"»*-»*-»    PROGRAM  DELAY    **+*■**#*****■**■****#*■*■*■* 

*  This  program  provides  a  small  delay  necessary  for  displaying 

*  various  program  messages  on  the  screen 
STORE  0  TO  k 

DO  WHILE  k  <  40 

STORE  k  +  1  TO  k 
ENDDO 

RETURN 
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-*■■*-*•■*•*-* -*■*•-*■ -*■-**"*"*■  ■*■*■■*•*•* 


PROGRAM  DBSTITLE 


*****-*•*•-*■-*•-*•-*--*--*-*••*-•*•■*--*-*-*-•* 


This  program  displays  on  the  screen  the  title  of  our 

database  system 


' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  , 
HAGS/ARTILLERY  BRANCH  DIRECTORATE 
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


MMMMMMMMMMMMMMM 

HIT  ANY  KEY  TO  CONTINUE 
'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

W+ 
'PERSONNEL  DATABASE  SYSTEM' 
'FOR  PROCESSING  THE  ANNUAL  ASSIGNMENTS' 
'OF  THE  OFFICERS' 

W 
OFF 


ON 


*    This  pro 

* 

CLEAR 

a   8,  18 

SAY 

3   9,18 

SAY 

3  10,18 

SAY 

a  11  ,18 

SAY 

a  12,18 

SAY 

a  13,18 

SAY 

a  14,18 

SAY 

a  15,18 

SAY 

a  16,18 

SAY 

a  17,18 

SAY 

SET  COLOR  TO 

a  i i , 28 

SAY 

a  12,22 

SAY 

a  13,32 

SAY 

SET  COLOR  TO 

SET  CONSOLE 

WAIT 

SET  CONSOLE 

RETURN 

18" 


*•**■•*"*  ■*"*■*"*■  ■*"*■-*-*  •*•-**•  ■*•-*■-* 


PROGRAM  MFRAME 


*■*■*#■*■*#■*■*■*■*■*■*#***■#*■*■■*■*■* 


*    This  program  displays  a  -frame  on  the  le-ft  half  o-f  the  screen 


CLEAR 


a 

r? 

,4 

SAY 

a 

3 

,4 

SAY 

a 

4 

,4 

SAY 

a 

5 

,4 

SAY 

a 

6 

,4 

SAY 

a 

7 

,4 

SAY 

a 

8 

p4 

SAY 

a 

9 

,4 

SAY 

a 

10 

,4 

SAY 

a 

11, 

,4 

SAY 

a 

12, 

,4 

SAY 

a 

13 

,4 

SAY 

a 

14, 

,4 

SAY 

a 

15. 

,4 

SAY 

a 

16, 

,4 

SAY 

a 

17. 

,4 

SAY 

a 

18. 

4 

SAY 

a 

19. 

,4 

SAY 

a 

20. 

4 

SAY 

a 

21  . 

4 

SAY 

RETUF 

IN 

SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 


'HMMMNMMMMMMMMMMMMMMMMMNMMMMMMMMMMMMM-:: 
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-*-*•*  •*-*-*•■*■-**•-*■-*■-*-*■-*■-* -*■-*-**■•* 


PROGRAM  FRAME 


*********************** 


*  This  program  displays  a  small  -Frame  on  the  screen 


I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 

NEW  RECORD  IN  HISTORIC  FILE 

MMMMMMMMMMMMMMMMMMMMMMMMMMM 


a 

8,43 

SAY 

a 

9,43 

SAY 

a 

1 0 ,  43 

SAY 

a 

11,43 

SAY 

a 

12,43 

SAY 

a 

13,43 

SAY 

a 

14,43 

SAY 

a 

15,43 

SAY 

a 

16,43 

SAY 

a 

17,43 

SAY 

RETURN 

HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 


******************** 


PROGRAM  WINDOW 


********************** 


*  displays  a  -Frame  on  the  screen  into  which  messages  -for  the 

*  user  are    placed  in-Forming  him  about  the  processing 


CLEAR 

a 

4,20 

SAY 

a 

5,20 

SAY 

a 

6,20 

SAY 

a 

7,20 

SAY 

a 

8,20 

SAY 

a 

9,20 

SAY 

a 

10,20 

SAY 

a 

1 1  ,  20 

SAY 

a 

1 2 ,  20 

SAY 

a 

13,20 

SAY 

a 

1 4 ,  20 

SAY 

a 

1 5 ,  20 

SAY 

RETURN 

I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 

TEMPORARY  FILES  FOR  THE 

ASSIGNMENT  PROCESSING  ARE  BEING  BUILT 

MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


********************  PROGRAM  WIND0W1    ********************* 

*    This  program  displays  a  window  on  the  screen 

CLEAR 

a  4,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 

a  5, 18  SAY  ': 

a  6,18  SAY  ' : 

a  7, 18  SAY  ' : 

a  8, 18  SAY  ' : 

a  9,18  SAY  'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 

RETURN 
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******************** 


PROGRAM  WIND0W2 


********************* 


*  This  program  displays  a  -frame  on  the  screen  into  which 

*  messages  -for  the  user  a.re    placed 

*  in-forming  him  about  the  processing 


CLEAR 

a   4,20 

SAY 

' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 

a   5 ,  20 

SAY 

/  , 

a   6 ,  20 

SAY 

/  , 

a   7,20 

SAY 

/  , 

:    MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM    : 

a   8,20 

SAY 

/  , 

a   9 ,  20 

SAY 

/  , 

a  10,20 

SAY 

/ 

a  11,20 

SAY 

/  , 

a  1 2 , 20 

SAY 

/  , 

a  13,20 

SAY 

/  , 

a  14,20 

SAY 

/ 

a  15,20 

SAY 

'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 

RETURN 

******************* 


PROGRAM  WIND0W3 


********************** 


*  This  program  displays  on  the  screen  the  codes  used  by  the 

*  database  system 


a 

^-l 

45 

SAY 

a 

3, 

,45 

SAY 

a 

4, 

45 

SAY 

a 

5 . 

,45 

SAY 

a 

6. 

45 

SAY 

a 

7 

,45 

SAY 

a 

8. 

,45 

SAY 

a 

9 

,45 

SAY 

a 

10 

,45 

SAY 

a 

H 

,45 

SAY 

a 

12 

,45 

SAY 

a 

13 

,45 

SAY 

a 

14 

,45 

SAY 

a 

15 

,45 

SAY 

a 

16 

,45 

SAY 

a 

17 

,45 

SAY 

a 

18 

,45 

SAY 

a 

19 

,45 

SAY 

a 

20 

,45 

SAY 

a 

21 

,45 

SAY 

RETUF 

*N 

' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 
RANK  CODES 


01=2nd  Lieuten. 

02= 1st  Lieuten 

03=Captain 

04=Major 

04=Ltn.  Colonel 

06=Colonel 

SOURCE 

CODES 

MA    =  Military  Academy 
NCOS  =  Non— Commi ssioned 
0-f-ficersv  School 
SPECIALTY  CODES 


C  =  Commanding   T  =  Technitian 
A  =  Administrative 
MARITAL  STATUS  CODES 


S  =  Single         W  =  Widower 
M  =  Married        D  =  Divorced 
'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 
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G.   SAMPLE  LISTS  AND  REPORTS  (DATABASE  SYSTEM  OUTPUT) 

Page  No.     1 
04/28/86 

ABD/HAGS 

LIST  OF  SCHEDULED  ASSIGNMENTS  FOR  THE  REQUESTED  RANK 


SERIAL  #  RANK 


NAME 


FROM  UNIT 

TO  UNIT 

DUE  DATE 

GMB 

212  FAB 

08/15/86 

AS 

12  HAB 

08/15/86 

12  HAB 

213  MHAB 

08/15/86 

GMB 

122  FAB 

08/15/86 

122  FAB 

GMB 

08/15/86 

GMB 

211  FAB 

08/15/86 

23  OB 

112  FAB 

08/15/86 

AS 

GMB 

08/15/86 

GMB 

23  OB 

08/15/86 

211  FAB 

AS 

08/15/86 

213  MHAB 

AS 

08/15/86 

112  FAB 

113  MHAB 

08/15/86 

113  MHAB 

GMB 

08/15/36 

212  FAB 

GMB 

08/15/86 

111  FAB 

OAB 

08/15/86 

OAB 

111  FAB 

08/15/86 

OAB 

OAB 

08/15/86 

121  FAB 

22  HAB 

08/15/36 

22  HAB 

212  FAB 

08/15/36 

212  FAB 

122  FAB 

08/15/86 

122  FAB 

121  FAB 

08/15/86 

211  FAB 

21  FA/AB 

08/15/86 

21  FA/AB 

211  FAB 

08/15/36 

22860 

02 

22873 

02 

22888 

02 

23029 

02 

23050 

02 

23112 

02 

23141 

02 

77999 

02 

23285 

02 

23326 

02 

23359 

02 

23392 

02 

23405 

02 

23595 

02 

23849 

02 

23864 

02 

23890 

02 

24007 

02 

24023 

02 

24046 

02 

24061 

02 

24156 

02 

24175 

02 

Zirnbo  Carl  P 
Zets  Frank  B 
White  Henry  V 
Topping  Scott  A 
Sugai  Steve  D 
Plott  Charles  B 
Murphy  Tom  S 
Kondler  Ronald  F 
Otondo  Je-F-f  M 
Weber  Alex  T 
Yeates  Jim  N 
Timar  Gordon  C 
Taylor  Leroy  A 
Amason  Frank  L 
Powers  Albert  G 
Kilgore  Michael 
Ratt  Bruno  K 
Jeronomo  Mike  W 
Johnson  Mark  J 
Davidson  Jack  B 
Fall  is  John  M 
Linhard  Harry  C 
Voris  John  D 
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Page  No. 
04/28/86 


ABD/HAGS 
LIST  OF  OFFICERS  SERVING  IN  THE  REQUESTED  UNIT 


RANK  SERIAL* 


NAME 


UNIT 


DUTY 


ENROL. DATE 


07 

20060 

06 

20178 

05 

20273 

05 

20300 

05 

20391 

05 

20531 

04 

20785 

04 

20927 

04 

20948 

04 

21138 

04 

21249 

03 

21289 

03 

21423 

03 

21492 

03 

21562 

03 

21628 

03 

21689 

03 

21733 

03 

2 1 903 

03 

21956 

01 

24402 

01 

24405 

01 

24423 

01 

24426 

01 

24436 

01 

24444 

01 

24458 

01 

24459 

01 

24472 

01 

24473 

01 

24491 

01 

24495 

01 

24786 

01 

24832 

01 

24847 

01 

24851 

01 

24929 

01 

25016 

Morris  Robert  G 
Adams  Edward  B 
Anzini  Daniel  D 
Lipori  Gerald  A 
McRae  James  R 
Nicely  Marvin  L 
Russo  James  D 
Qual 1 s  Terry  D 
Miller  Jacj  T 
Krupski  Joseph  K 
Rogers  Alex  B 
Mai  Ion  Patrick  F 
Trend  Ted  M 
Aston  John  S 
Salvo  John  H 
Ryan  Peter  G 
Papas  Chris  J 
Strouzas  John  G 
Solomos  James  D 
Sercia  John  M 
Lucas  Mike  T 
Williby  Richard 
Grace  Bob  K 
Stetson  Je-f-f  C 
Nagal  David  A 
Dun lop  Tom  S 
Kohn  Daniel  P 
Eakin  Wi 1 1 iam  F 
Clanin  John  V 
Henderson  Lester 
Lubin  Patrick  H 
Nae-f  George  J 
Monsen  Harry  K 
Mixter  Jason  K 
Townsend  Je-f-f  P 
Lucky  Thomas  S 
Knubis  James  P 
CI ine  Wi 1 1 iam  R 


N 


ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 
ARTC 


CDR 

05/05/35 

DEPUTY  CDR 

05/22/85 

FAASS 

07/26/84 

TAB/CDR 

07/18/84 

TAB/CDR 

07/12/84 

TAB/CDR 

07/20/85 

G2 

08/18/85 

G3 

07/29/34 

Gl 

07/28/35 

HSB/CDR 

07/20/83 

TCA0 

08/25/35 

B/CDR 

08/27/84 

B/CDR 

08/30/84 

B/CDR 

08/29/84 

B/CDR 

08/31/84 

B/CDR 

08/26/82 

B/CDR 

08/27/84 

B/CDR 

08/30/84 

B/CDR 

08/29/84 

B/CDR 

08/31/85 

P/CDR 

08/01/35 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/85 

P/CDR 

08/01/35 

P/CDR 

08/01/85 

MO 

08/25/84 

MO 

08/30/85 

MO 

08/28/85 

PAO 

08/29/83 

PAO 

08/29/84 

PAO 

08/30/85 
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Page  No. 
04/28/86 


ABD/HAGS 
LIST  OF  ARTILLERY  OFFICERS  IN  THE  REQUESTED  ORDER 


RANK 


NAME 


SOURCE  SPECIALTY  UNIT-NAME  MARITAL  ST, 


02 

Abigil  Frank  P 

MA 

C 

GMB 

S 

01 

Abston  Mi  ke  R 

MA 

C 

212  FAB 

s 

01 

Acevedo  William  D 

MA 

C 

113  MHAB 

s 

06 

Adams  Edward  B 

MA 

C 

ARTC 

M 

03 

Adcok  Jery  T 

MA 

C 

21  FA/AB 

M 

04 

Alders  Edward  R 

MA 

C 

OAB 

M 

02 

Allen  Douglas  W 

NCOS 

A 

223  MHAB 

M 

03 

Allen  Kirk  R 

MA 

C 

221  FAB 

r* 

O 

01 

Alonso  Jack  N 

NCOS 

T 

23  OB 

M 

02 

Amason  Frank  L 

MA 

C 

212  FAB 

M 

03 

Amman  George  D 

MA 

C 

AS 

M 

01 

Anasini  George  S 

MA 

c 

112  FAB 

S 

02 

Anderson  Moore  J 

MA 

c 

221  FAB 

S 

02 

Aney  John  T 

MA 

c 

13  OB 

M 

03 

Annelo  Philip  R 

MA 

c 

122  FAB 

M 

07 

Anton  John  T 

MA 

c 

OAB 

M 

06 

Anway  James  R 

MA 

c 

OAB 

M 

05 

Anzini  Daniel  D 

MA 

c 

ARTC 

M 

04 

Appel  John  G 

MA 

c 

WC 

M 

03 

Arima  James  J 

MA 

c 

GMB 

M 

05 

Ariss  Bruce  F 

MA 

c 

AS 

S 

04 

Armout  Paul  G 

MA 

c 

22  HAB 

M 

04 

Armstrong  David  K 

MA 

c 

WC 

M 

04 

Arnal  Robert  J 

MA 

c 

OAB 

M 

05 

Arnold  Michael  C 

MA 

c 

212  FAB 

M 

03 

Arundel  Mi  ke  A 

NCOS 

T 

113  MHAB 

D 

03 

Aston  John  S 

MA 

c 

ARTC 

M 

03 

Atkins  Robert  H 

MA 

c 

121  FAB 

M 

04 

Auburn  James  P 

MA 

c 

111  FAB 

M 

01 

Austin  Dick  B 

MA 

c 

AS 

S 

05 

Avery  Adam  S 

MA 

c 

221  FAB 

M 

01 

Axel  rod  Jack  Z 

NCOS 

c 

111  FAB 

S 

03 

Babbit  Almon  P 

MA 

c 

211  FAB 

M 

03 

Baer  Dan  F 

NCOS 

c 

OAB 

M 

05 

Balum  Dug las  N 

MA 

c 

21  FA/AB 

M 

03 

Beam  Alan  K 

MA 

c 

112  FAB 

M 

01 

Beaty  Jackson  L 

MA 

c 

122  FAB 

S 

05 

Bell  Richard  K 

MA 

c 

OAB 

M 

04 

Benison  Michael  J 

MA 

c 

OAB 

M 

07 

Bi 1 leb  James  W 

MA 

c 

OAB 

M 

04 

Biondi  Daniel  M 

MA 

c 

223  MHAB 

M 
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Page  No. 
04/28/86 


ABD/HAGS 


LIST  OF  ARTILLERY  OFFICERS  OF  THE  REQUESTED  RANK 


RANK 


NAME 


IALTY 

MARITAL  ST. 

UNIT-NAME 

C 

M 

OAB 

C 

M 

OAB 

c 

M 

GMB 

c 

M 

ABD/HAGS 

c 

M 

CAB 

c 

M 

OAB 

c 

M 

ARTC 

c 

S 

AS 

c 

M 

OAB 

c 

M 

ABD/HAGS 

c 

N 

OAB 

c 

N 

22  HA3 

c 

D 

ARTC 

c 

M 

121  FAB 

c 

M 

OAB 

c 

M 

ABD/HAGS 

c 

M 

OAB 

c 

S 

OAB 

c 

M 

222  FAB 

c 

M 

AS 

c 

M 

122  FAB 

c 

S 

OAB 

c 

M 

AS 

c 

M 

OAB 

c 

M 

113  MHAB 

c 

M 

111  FAB 

c 

M 

12  HAB 

0 

W 

OAB 

c 

M 

ARTC 

c 

M 

211  FAB 

c 

S 

OAB 

c 

M 

213  MHAB 

c 

M 

221  FAB 

c 

M 

21  FA/AB 

c 

M 

OAB 

c 

M 

OAB 

c 

D 

ABD/HAGS 

c 

M 

OAB 

c 

S 

223  MHAB 

c 

M 

11  FA/AB 

c 

M 

OAB 

05  Knight  Allen  S  MA 

05  Klose  Edwin  A  MA 

05  Nakata  Isaac  E  MA 

05  Franklin  Adams  P  MA 

05  Cabral  David  T  MA 

05  Bell  Richard  K  MA 

05  Anzini  Daniel  D  MA 

05  Ariss  Bruce  F  MA 

05  Gray  Joseph  W  MA 

05  Jarecki  Edward  L  MA 

05  Harvey  Steeve  B  MA 

05  Carl  Michael  S  MA 

05  Lipori  Gerald  A  MA 

05  Naylor  Stephen  G  MA 

05  Wurtz  Thomas  D  MA 

05  Yadon  Robert  J  MA 

05  Zeller  Donald  L  MA 

05  Yee  Kalvin  B  MA 

05  Plott  Je-f-f  C  MA 

05  Tranel  James  A  MA 

05  Trotter  Richard  E  MA 

05  Valentino  John  P  MA 

05  Urie  Larry  H  MA 

05  Thoreson  Alex  G  MA 

05  Smith  Steven  G  MA 

05  Johnes  Robert  P  MA 

05  Poleti  Felix  A  MA 

05  Nash  Thomas  S  MA 

05  McRae  James  R  MA 

05  Goral  George  B  MA 

05  Drew  Alan  M  MA 

05  Cosio  Frank  L  MA 

05  Avery  Adam  S  MA 

05  Balum  Duglas  N  MA 

05  Je-f-frey  Harold  D  MA 

05  Nicasio  Michael  F  MA 

05  Wagner  Chris  F  MA 

05  Lippman   Bi 1 1  J  MA 

05  Jagoe  Donald  H  MA 

05  Grace  Bruce  P  MA 

05  Draper  George  R  MA 
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Page  No. 
04/28/86 


ABD/HAGS 
LIST  OF  THE  ARTILLERY  BATTALION  COMMANDERS 


SERIAL  # 

RA 

20255 

05 

20294 

05 

20305 

05 

20332 

05 

20343 

05 

20365 

05 

20376 

05 

20379 

05 

20392 

05 

20403 

05 

20408 

05 

20412 

05 

20449 

05 

20455 

05 

20476 

05 

20495 

05 

20500 

05 

NAME 


UNIT 


ENROL.  DATE 


Nakata  Isaac  E 
Carl  Michael  S 
Nay lor  Stephen  ( 
Plott  Je-f-f  C 
Trotter  Richard 
Smith  Steven  G 
Johnes  Robert  P 
Poleti  Felix  A 
Goral  George  B 
Frank  L 
Adam  S 
Dug las  N 
Donald  H 
Bruce  P 
Johnson  Mark  L 
Arnold  Michael  ( 
Knapp  Thomas  L 


Casio 
Avery 
Bal  urn 
Jagoe 
Grace 


GMB 

07 

22  HAB 

07 

121  FAB 

07 

222  FAB 

07 

122  FAB 

07 

113  MHAB 

07 

111  FAB 

07 

12  HAB 

07 

211  FAB 

07 

213  MHAB 

07 

221  FAB 

07 

21  FA/AB 

07 

223  MHAB 

07 

11  FA/AB 

07 

123  MHAB 

07 

212  FAB 

07 

112  FAB 

07 

/I  9/84 
/ 16/85 
/11/84 
/24/S4 
/ 13/84 
/ 22/84 
/21/84 
/23/S4 
Z22/84 
/ 18/84 
/17/S4 
/23/S4 
/IS/85 
/11/85 
/ 13/85 
/21/85 
/19/85 
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Page  No. 
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ABD/HAGS 
LIST  OF  ARTILLERY  OFFICERS  SERVING  OUTSIDE  THE  BRANCH 


RANK 

SERIAL  # 

07 

20017 

07 

20019 

07 

20020 

07 

2003 1 

07 

20067 

06 

20081 

06 

20088 

06 

20097 

06 

20 1 09 

06 

20121 

06 

20151 

06 

20173 

06 

20 1 95 

06 

20196 

06 

20208 

06 

20217 

06 

20226 

05 

20240 

05 

20248 

05 

20269 

05 

20270 

05 

05 

20290 

05 

203 1 3 

05 

20324 

05 

20329 

05 

2035 1 

05 

20360 

05 

20382 

05 

20399 

05 

20421 

05 

20427 

05 

20442 

05 

20468 

05 

20483 

05 

20511 

05 

205 1 9 

04 

20556 

04 

20570 

04 

20582 

04 

20596 

NAME 


UNIT 


ENROL.  DATE 


Calaunan  Tend  G 
Billeb  James  W 
Anton  John  T 
liagnelli  Harold  P 
Prevat  Randy  K 
Alex  B 
Michael  A 
W 
D 


Hart on 
Gordan 

Nickel  George 
Wapper  Alfred 
Anway  James  R 
McNett  John  R 
Colvin  Edgar  A 
Wright  Richard  T 
Yancy  Roy  J 
Luk  William  P 
Lacy  David  A 
Plantz  Joe  M 
Knight  Allen  S 
Klose  Edwin  A 
Cabral  David  T 
Bell  Richard  K 
Gray  Joseph  W 
Harvey  Steeve  B 
Wurtz  Thomas  D 
Zeller  Donald  L 
Yee  Kalvin  B 
Valentino  John  P 
Thoreson  Alex  G 
Nash  Thomas  S 
Drew  Alan  M 
Je-f-frey  Harold  D 
Nicasio  Michael  F 
Lippman   Bi 1 1  J 
Draper  George  R 
Cook  Wi 1 1 i  am  K 
Kasper  James  K 
Kennedy  John  3 
Lucky  Thomas  N 
Benison  Michael  i 
Alders  Edward  R 
Arnal  Robert  J 


0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
0AB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 


05/20/85 
05/15/35 
05/18/85 
05/25/85 
05/12/85 
06/01/85 
06/10/85 
06/20/85 
06/18/85 
06/12/85 
06/21/85 
06/15/85 
06/17/84 
06/12/84 
06/17/84 
06/18/84 
06/19/34 
07/12/84 
/15/85 
/27/84 
V 13/84 
/18/85 
V10/84 
/12/85 
/ 10/85 
/20/85 
/19/85 
/09/85 
07/16/84 
07/13/34 
0 

o 

0 
0 
0 
0 


/ 20/84 
/08/85 
/ 10/85 
/06/85 
/ 10/85 
/05/85 
08/20/84 
08/23/84 
08/18/84 
08/21/84 
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ABD/HAGS 
LIST  OF  ARTILLERY  OFFICERS  SERVING  OUTSIDE  THE  BRANCH 


RANK 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


SERIAL  # 


20607 
20619 
20641 
20655 
20666 
20670 
20685 
20697 
20715 
20722 
20723 
20728 
20734 
20736 
20749 
20756 


NAME 


UNIT 


ENROL.  DATE 


Durbin  James  C 
Kaseman  Timothy 
Hoi st e  Robert 
Nagano  Patrick 
Combie  Edward 
Sal  eh  William 
Bill  A 
Mark  W 
Alan  B 
Kalvin  E 
Jack  C 


Wyler 

Trapl 

Sc  i  1  k 

Scott 

Hoss 

Goodrich  John 

Tally  Chris  S 

Concon  Stephen 

Emerson  Burt  F 

Je-f-ferson  Jack 


0AB 

08/16/84 

y  a 

0AB 

08/12/84 

w 

0AB 

08/24/85 

K 

OAB 

08/28/84 

P 

OAB 

08/29/85 

R 

OAB 

08/22/84 

OAB 

04/26/85 

OAB 

08/26/85 

OAB 

08/27/85 

OAB 

08/26/S5 

OAB 

08/28/84 

A 

OAB 

08/27/84 

OAB 

08/27/34 

J 

OAB 

08/17/35 

OAB 

08/24/84 

L 

OAB 

08/25/84 
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ABD/HAGS 


DATE:  04/28/36 


OFFICER'S  SERVICE  TIME  REPORT 


SERIAL  #  :  20204  NAME  :  Wechsler  Thomas  J 
SOURCE  :  MA  SPECIALTY  :  C 


DATE 

TRANSACTION 

RANK 

UNIT 

ORDER  ID 

07/25/64 

NOMINATION 

01 

MA 

F. 

440/ 11 /HAGS 

08/02/64 

ASSIGNMENT. 

01 

AS 

F. 

400/23/ABD/HAGS 

08/01/65 

ASSIGNMENT 

01 

ARTC 

F. 

400/46/ABD/HAGS 

08/12/66 

ASSIGNMENT 

01 

111  FAB 

F. 

400/32/ABD/HAGS 

07/26/67 

PROMOTION 

02 

111  FAB 

F. 

440/41 /ABD/HAGS 

08/22/70 

ASSIGNMENT 

02 

223  MHAB 

F. 

400/54/ABD/HAGS 

07/28/72 

PROMOTION 

03 

223  MHAB 

F. 

440/33/HAGS 

08/25/74 

ASSIGNMENT 

03 

12  MHAB 

F. 

400/ 44 /ABD/HAGS 

08/01/77 

PROMOTION 

04 

12  HAB 

F. 

440/22/HAGS 

08/28/77 

ASSIGNMENT 

04 

13  OB 

F. 

400/41 /ABD/HAGS 

08/01/79 

ASSIGNMENT 

04 

WC 

F. 

333/20/ABD/HAGS 

07/25/80 

ASSIGNMENT 

04 

AC/11  ID 

F. 

400/21 /ABD/HAGS 

05/18/81 

PROMOTION 

05 

AC/11  ID 

F. 

440/ 46 /HAGS 

07/23/82 

ASSIGNMENT 

05 

21  FA/AB 

F. 

400/24/ABD/HAGS 

06/22/85 

ASSIGNMENT 

05 

ABD/HAGS 

F. 

400/ 13/ ABD/HAGS 

04/20/86 

PROMOTION 

06 

ABD/HAGS 

F. 

400/18/ABD/HAGS 
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ABD/HAGS 


DATE:  04/28/86 


OFFICERS  STATUS  REPORT 


NAME             ! 

:   Trotter  Richard  E 

SERIAL  NUMBER 

:   20343 

RANK 

:   05 

NOMINATION  YEAR 

:   66 

SOURCE           : 

MA 

SPECIALTY 

:   C 

MARITAL  STATUS 

:   M 

CHILDREN        : 

,   «-j 

WORKING  WIFE    : 

:   .F. 

ORIGIN          ; 

cityl9  ,   countylO 

UNIT             ! 

:   122  FAB 

ENROLMENT  DATE  : 

07/13/84 

DUTY             : 

CDR 
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c.l  Implementation   of   a 

personnel   database   sys- 
tem performing   the 
annual   reassignment   of 
the   officers   of   a 
Branch  Directorate   of 
the   Hellenic   Army 
General    Staff. 


